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PREFACE 


The Sinclair 2X81 microcomputer has been widely acclaimed as a 
tremendous breakthrough in personal computing, even surpassing its 
predecessor the ZX80. Certainly no other computer has been bought in 
such quantities by such a wide range of people in such a short space of 
time since its launch in February 1981. The ZX81 advertising campaign 
has sought to attract the general public to the concept of using a 
computer in the home. 


“The ZX81 Companion” has been written to assist ZX81 owners in using 
their computer in the specific areas of information retrieval, education, 
and games. The Sinclair ZX81 Manual, while being an excellent intro- 
duction to ZX81 BASIC, does not discuss any real uses for the machine. 
However in the Companion, readers will find documented programs that 
can be used immediately to utilise the ZX81 to its full potential, as well 
as detailed guidelines on the design and development of their own 
programs. The book is therefore aimed at those familiar with the con- 
cepts of ZX81 BASIC but keen to get the ZX81 moving onto higher 
things. The fourth chapter is aimed at more advanced users who are 
interested in the workings of the ZX81 Monitor and methods of dis- 
playing and using Monitor routines. 


It is the opinion of the author that for any serious applications the ZX81 
definitely requires the addition of a 16K RAM pack. However many 
programs in the book can be run on 1K machines, the main exception 
being Chapter Two which develops a sophisticated information retrieval 
package for which 16K is naturally vital. 


The author has been involved in the ZX series of microcomputers since 
he acquired the first ZX80 kit in March 1980, and he is co-author of 
Linsac’s ‘The ZX80 Companion’. He holds an MSc in Computer Science 
from Birmingham University and is Head of Computing at Hartlepool 
College, where he pioneered the use of the ZX80 in education. 


Thanks are due to Sinclair Research for permission to reprint the ZX81 
keyboard layout (but not the Monitor listing!), to Joe Foster for con- 
tributing the Appendix on program development and to lan Logan for 
the section on Monitor routines and entry points. 
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INTRODUCTION AND NOTATION 


Readers who own 16K ZX81’s will be able to get the most out of this 
book, but those with 1K ZX81’s or updated ZX80's will also benefit. 
Memory requirements for programs are clearly marked, and in many 

of the routines in Chapter One in particular, 1K and 16K alternatives 
are given. It is the author’s opinion that owners of 8K ROM ZX80’s are 
certainly at a disadvantage with regard to the main benefit of the ZX81 
— animated displays. Such users will be well advised to consider the 
purchase of a conversion kit, currently available in the UK from 
Compshop Ltd., to provide the SLOW compute and display facility. 
However ZX80 owners without this conversion will still be able to use 
most of the programs herein, in some cases with the addition of suitable 
PAUSE statements to simulate SLOW mode. 


Material in the four chapters is developed from a simple starting point, 
and in the first three chapters exercises are used to give the reader 
practice in the techniques discussed. Solutions are found at the end of 
the book. 


A technique known as logical assignment is used in many of the programs 
to save on program space: a necessity for 1K machines. This technique 
combines several conditions and values in a single LET statement, and 
may not be familiar to some readers: study of the Sinclair Manual is 
recommended to clarify the use of the technique. 


The notation used in the program listings is designed to be as unambigu- 
ous as possible. Since spaces in printed text can be important in some 
circumstances, many of the listings specify a space by the letter b (for 
blank). Confusion between the letter | and the number 1, or the letter 
O and the number zero can occur so the following conventions are used: 


= letter 
= number one 
letter 
number zero 


So-- 
ll 


Graphics and inverse characters can also be difficult to represent. If text 
is to be represented in inverse form then this is indicated by the word 
“inverse”’ in brackets at the end of the PRINT statement. Graphics 
characters are generally drawn in and sometimes also identified by their 
key, e.g.500 PRINT “MM” (inverse space) 


Vv 


CHAPTER ONE 
GRAPHICS AND REALTIME TECHNIQUES 


1.1 INTRODUCTION 


We consider in this chapter the use of ZX81 statements to produce diag- 
rams, pictures and moving displays. Graphics is the art of drawing items 
on the ZX81 screen by means of addressing different parts of the display 
as you might fill in squares on a piece of graph paper. Realtime methods 
involve getting the ZX81 to respond to you immediately : although all 
ZX81 programs work in a conversational mode with the user entering 
information (in response to INPUT statements) and the computer 
replying with a display, programs can be written which will react immed- 
iately the user presses a key, whether or not the computer was doing 
something else at the time. 


These two techniques can be immensely useful. On the serious side, 
information can often be more clearly presented and understood if it is 
in the form of diagrams, such as graphs or histograms; simple maps or 
room layouts can also be shown. On the lighter side, games have much 
more realism and challenge if they involve pictures, and if the pictures 
move and the player has to respond quickly to this movement, so much 
the better. 


It will be helpful if the reader has looked over Chapters 17, 18 and 19 of 
the‘ZX81 BASIC Programming’ manual first. The statements covered in 
the theory and practical exercises below are PLOT, UNPLOT and PRINT 
AT (graphics) and INKEY$ and PAUSE (realtime). Do not be deterred 
by the initial emphasis on theory: in order to produce good graphics you 
need to have a good grasp of what is often titled ‘coordinate geometry’. 
At the end of this chapter you will be programming your own arcade- 
type games so stick with it! 


1.2 AXES AND COORDINATES 


In using the graphics features of the ZX81 we think of the TV screen as 
a piece of graph paper split into squares. We can black-in a square using 
PLOT and rub out a blacked-in square using UNPLOT. However to pick 
out a blacked-in square we must have some way of identifying squares 
to the ZX81, and this is done by considering the screen as having two 
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lines of reference or axes, at right angles to each other at the left and 
bottom of the screen. 


ORIGIN 


X AXIS 





The vertical axis at the left of the screen is known as the y axis, and the 
horizontal axis at the bottom is called the x axis. The point at which 
they intersect is called the origin. 


Coordinates 


The number of ‘squares’ on the ZX81 screen is fixed at 64 x 44, i.e. there 
are 64 divisions along the x axis and 44 divisions along the y axis. To 
complicate the issue the divisions are numbered from 0 to 63 and from 

0 to 43, as shown below. 


Y AXIS # 


=" 





X AXIS 


To identify a particular square on the graph we specify how far along 
the x axis it is, and then how far along the y axis. For example the 
blacked-in square in the diagram above is at position 3 on the x axis and 
position 5 on the y axis and we say its position on the graph is therefore 
(3,5). This pair of numbers in brackets is known as the coordinates of 
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the square. Note that the Sinclair Manual calls these squares “‘pixels’’. 
The PLOT statement uses the coordinates to identify a square’s position 
and black it in (however brackets are omitted). Try this: 


PLOT 3,5 


A black square appears towards the bottom left hand corner of the 
screen, or at position (3,5). 


Any square in the 64 x 44 graph can be identified using coordinate pairs 
from the origin at (0,0) to the top right at (63,43). RUN the following 
program to get the four corners of the screen display 


19 PLOT @,@ 
20 PLOT @, 43 
30 PLOT 63, @ 
49 PLOT 63, 43 


The next section shows how squares may be drawn in groups to form 


lines. 


1.3. STRAIGHT LINES 


Equations of X and Y Axes 


A straight line may be drawn on the screen by drawing in several squares 
together. The squares which form a line all have something in common 
and we can form an equation for a line using this fact. As an example, 
consider squares along the x axis: 


(0, ®) , (1,0) , (2, ®) and so on up to (63, @) 


All of these squares have something in common — they have their y 
position equalling zero. Therefore we say that the x axis has the equatio 


y=0 


Similarly all squares along the y axis have their x coordinate equalling 
zero so the equation of the y axis is 


x=@ 


Therefore in order to draw in the y axis on the screen, all we need to do 
is PLOT every square where x = @. Thus 


19 FOR Y=@TO 43 
20 PLOT 0,Y 
30 NEXT Y 


Add the following lines and we produce a set of x and y axes on the 
screen. 


49 FOR X=90 TO 63 
5@ PLOT X,0 
60 NEXT X 


In fact any vertical line will have an equation 
x = a number 
while any horizontal line will have an equation. 


y = a number 


Drawing a Rectangle 


You can get some interesting visual effects using just these simple con- 
cepts. The following program draws the edges of the screen ‘graph’: 


10 FOR X=0 TO 63 
20 PLOT X,0 

30 PLOT X,43 

49 NEXT X 

50 FOR Y=@ TO 43 
60 PLOT @, Y 

70 PLOT 63,Y 

80 NEXT Y 


Notice how the vertical lines and horizontal lines are plotted in pairs 
through use of a pair of PLOT statements in each of the two loops. 
For 1K ZX81’s, substitute 37 for 43 in lines 30 and 50 for a complete 
rectangle. 


Another example shows how the entire screen may be blacked in from 
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the left 


10 FORX=@TO63..... (Use 61 for 1K ZX81's) 
20 FOR Y =@ TO 43 

30 PLOT X,Y 

409 NEXT Y 

50 NEXT X 


Try reversing the order of the loops and see the effect. 


Exercise 1 (a): Produce an entirely black screen display by 
drawing vertical lines from right to left, going down the 
screen. 


1 (b): Draw a black square with its bottom left corner 
at position (10,5), sized 20 x 20 squares. 


(Solutions on page 115) 


Equations of General Lines 
Most lines that we will need to draw on the ZX81 will not be vertical or 
horizontal, but diagonal. We now discuss how we can work out the 
common features or equations of such lines, and thus how they can be 
plotted on the screen. 


The diagram below shows a line drawn between points (@,6) and (18,42). 


42 


If this line were drawn on graph paper we would see that it also passes 
through a sequence of positions starting 


(1,8) (2,10) (3,12) (4,14) (5,16) ... 
The common factor about all the positions through which the line passes 
is that the y coordinate is twice the x coordinate plus six. We can there- 
fore say that the line has the following equation 

y=2x+6 
and we can therefore draw it on the ZX81 screen thus 

109 FOR X=@ TO 63 

20 PLOT X,2*X+6 

30 NEXT X 


However this teminates with error code B after getting as far as x = 18, 
since the y value calculated when x = 19 is 44, which is off the screen. 


Any diagonal line that we care to choose can be reduced to a simple 
equation of the form 


y=mxtc 
where m and c represent numbers. 


The values of m and c can be seen more clearly from the following graph 
showing y = 2x + 6 again. 





e gradient or steepness of the line is measured by height divided by 
igth. As shown above the line goes up 36 squares as it goes along 18 
jares, so the gradient is 36 = 18 or 2. This represents m in the general 
Jation of a straight line, y= mx +c. Similarly c is given by where the 

e cuts the y axis. To understand this, remember that the y axis is where 
:@ Therefore when the line y = mx + c and the line x = M intersect 

n 


y=m@+c 
is value is often called the y intercept. 


nsider a different line. This one slopes downwards and cuts the x-axis. 


x 


ain this line fits the general equation y = mx +, but this time the 
dient m will be negative. The x intercept is easily found by remem- 
‘ing that the x-axis is where y = @ 


so y=mxt+c 

becomes @ = mx +c 

therefore x = —c 
The. 


e following program can be used to demonstrate the effects of different 
ues for m and c. 


5 REM ENTER VALUES AND PRINT EQUATION 
10 CLS 
20 PRINT “‘M="; 
30 INPUT M 
49 PRINT M;"bC=”; (b = space) 
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50 INPUT C 
60 CLS 
70 PRINT AT 0,12;“Y=";M;"X+"';C 
75 REM DRAW AXES 
80 FOR X=0TO 63 
99 PLOT X,0 
190 NEXT X 
110 FOR Y=@TO 43 
120 PLOT 9, Y 
130 NEXT Y 
135 REM DRAW LINE 
149 FOR X=@TO 63 
15@ PLOT X,M*X+C 
160 NEXT X 


(For 1K ZX81's omit the REM lines) 


RUN the program with varying positive and negative values for m and c 
and finally c= @or m=. If the y value becomes negative some peculiar 
effects occur because the PLOT statement always takes the positive 
values of coordinates. To overcome this add the line 


145 |F M*X+C<@ THEN STOP 


If you find it difficult to understand why the ZX81 does not do con- 
tinuous diagonal lines as it would if they were horizontal or vertical, 
remember that it is only blacking-in squares on agrid. You may have 
come across computers which appear to draw continuous lines on an 
output screen, but this is only because the number of squares or 
resolution of the display is higher. 


14 MOVING OBJECTS 
Moving Spots 


To relieve what for some might be a tedious excursion into school maths, 
let us look at how we can get things to move on the ZX81 screen. 


The way to produce animation by computer is the same as in cartoons: 
display a picture then display it in a slightly different position, and so 
on. When we drew lines on the screen we saw them being extended, and 
all we need to do to get moving spots is to rub out the trail. Modifying 
one of the previous routines gives us 


19 FOR X=0TO 63 
20 PLOT X,@ 

3@ UNPLOT X,0 
40 NEXT X 


and we see a spot moving quickly along the bottom of the screen. To 
slow it down and make it a bit clearer we could add a PAUSE 


25 PAUSE 10 Vital for updated ZX80’ 
26 POKE 16437,255 Vital Toe update 
Two points here — remember to include the POKE after every PAUSE 
if you use FAST mode, and also make sure you PAUSE while the spot 
is on the screen, not after you have just rubbed it out. 


Exercise 1(c): Write a program to get a spot to move round the 
edges of the screen anti-clockwise starting at the origin (the 
- program above starts you off). 


Moving Objects 


For greater realism a complete object can be built up and moved across 
the screen. As we will see later this is much better using the PRINT AT 
instruction but it can be achieved by PLOT, as below 


19 FOR X=0 TO 61 

20 PLOT X,0 

30 PLOT X+1,0 

40 PLOT X+2,0 

5@ PLOT X+1,1 

6@ PAUSE 10 ) ortry 60 FOR A=1 TO 20 
70 POKE 16437,255 ) 70 NEXTA 

80 UNPLOT X,0 

99 UNPLOT X+1,1 
100 NEXT X 


We see that not all of the object need be rubbed out each time, since the 
remaining part forms part of the next drawing of the object. The 
annoying blinking is much less accentuated using PRINT AT as we shall 
see, or even using the dummy loop. 


1.5 TRIGONOMETRY 
Tangents 


If you have started to read this section in spite of seeing the title then 
you are doing well. It is true that sines, cosines and particularly tangents 
can be useful in our theory of graphics. We will consider just tangents, 
but you can read up any secondary school maths text book to swot 

sines and cosines if you find it interesting. 


A tangent is the ratio of two sides of a right-angled triangle: 


The tangent of the angle at A 
P is a 


b 


But think of this on a graph 


and we see that the tangent 
is the same as the gradient of 


height a straight line. 





<length ——~> 





Therefore we can start talking about lines being drawn at certain angles 
on the screen. For example the following program invites you to enter 
an angle (0-90°) and it then draws a line from the origin at this angle to 
the x axis. 


19 PRINT AT 0,0;“ANGLE="; 

20 INPUT A 

30 PRINTA 

40 IF A<@ OR A>9@ THEN GO TO 20 
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50 LET M=TAN(A*2*P1/360) 

6@ FOR X=@TO 63 

70 IF M*X>43 THEN GO TO 100 

8@ PLOT X,INT(M*X) 

90 NEXT X 
109 PAUSE 10@ 
119 POKE 16437,255 
120 PRINT AT @,6;“bbbb”’ a 
130 GO TO 10 [Bone spars) 
res 10—50 invite the user to enter an angle and then the value of m in 
2 general equation for straight lines through the origin (y = mx) is 
iculated. As an added complication, the ZX81 will only handle 
gents of angles expressed in radians which is a unit of circular measure 
t since one degree is 27 _ radians (or 7 ) 

360 180 


! can do an easy conversion. 


res60—90 = draw the line, making sure to stop drawing when the 
top of the screen is hit 


nes 100 — 130 cause the program to repeat so that several lines can be 
drawn on the same graph. 


Exercise 1 (d): Write a program to draw a ‘‘spider’s web” of 
lines, similar to the ones above using the angles 0° to 90° 
at 5° intervals. 


ie program above and the exercise will crash when the angle is equal to 
yety degrees because the tangent of 90° is infinitely large — draw the 
angle if you cannot see why! A good way of stopping it anyway! 


Pythagoras 


ie above-named gentleman may again not be too popular amongst 

ne readers but his theorem can help us draw some nice pictures if 
thing else. Basically he informs us that in a right angled triangle such 
the one below the square of the hypotenuse is equal to the sum of the 
dares of the other two sides. 


i.e. c2 = a2 + b2 


This can be used in straight line geometry to work out the length of a line 
e.g. 


Take length of line as L 


then L2 = 32 + 42 





<—a —> 
i] 

NO 

o 





nN 
oP— 


Try changing this instruction in the solution of exercise 1(d) to see an 
example of how Pythagoras can justify his existence: 


50 IF X*X + Y*Y>1849 THEN GO TO 80 
and avery nice set of equal length lines are produced in an arc. 
Beware when using Pythagoras’ theorem, particularly in loops, because 
the SOR function and even powers of numbers are very slow to evaluate. 
For example the following statement has the same effect as the instruc: 


tion above but it is much slower: 


50 IF SOR(X**2+ Y**2) > 43 THEN GO TO 80 


Try it and see. 
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1.66 MORE STRAIGHT LINES 
Lines Through a Point 


Having done a quarter of a spiders web above, why not try a full web- 
shape. To do this we need to know some more theory about equations 
of lines on a graph, and in particular how to calculate the equation of a 
line between two points. 


For example, say we want to draw a line between (2,3) and (15,20). 
Both of them are on the line (general equation y = mx + c) so both 
satisfy its equation. 


So for point (2,3) we have 3=2m+c 
and for point (15,20) we have 20= 15m+c 


and then we have another mathematical unpleasantry, a pair of simul- 
taneous equations! We eventually find that in a general case, the equa- 
tion through two points (p,q) and (r,s) is obtained by 





Enough of the theory, let’s draw some more pictures. We want to get a 
web or star shape, with the centre at the centre of the screen, (32,22). 
Therefore we want to draw lines from different points on the y axis 
through (32,22). This makes things easier since the y axis has the 
equation x = @. 


So taking (p,q) = (32,22) 
and (r,s) = (Oy) 
we get y—22 = x-32 for S from @ to 43 
s— 22 — 32 


which after a lot of bashing comes to 


y = 22 — (x — 32) (s— 22) for S from @ to 43 
32 


giving the following program 


19 FOR S=@ TO 43 STEP 5 ... (Use 39 rather than 43 

20 FOR X=@ TO 63 with 1K ZX81’s) 
30 LET Y=INT(22—(X—32) * (S—22)/32) 

49 IF Y>43 OR Y<@ THEN GO TO 70 

5@ PLOT X,Y 

60 NEXT X 

70 NEXT S 


Lines with a Given Slope 


Exercise 1(e): The display from the program above does not give 
a complete web effect because lines are only drawn from the 
-y axis. Extend it by working out the equation of lines 
through a point with a given gradient and thus produce a 
complete web. 


Spirals 


An interesting display can be produced by drawing lines around the out- 
side of the screen which gradually move into the centre in a ‘rectangular 
spiral’. It is also quite an interesting exercise in logic. 


Consider a general case where we are somewhere in the middle of the 
display: 





We can label the corners of the current rectangle as shown above. There- 
fore we initially set the values of X@, X1, Y@, Y1 to be at the edges of 
the screen and then gradually change them in the course of the program 
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to produce the spiral. However we have to be very careful as to where in 
the program we modify these values. 


This works very nicely: 


19 LET X@=0... 15 ) 

20 LET X1=63 ... 48) for 1K ZX81's 
30 LETY@-0 .. 20) 

49 LET Y1=43 .. 43) 

50 FOR X=X@TO X1 

60 PLOT X,Y0 

70 NEXT X 

89 FOR Y=YOTO Y1 

99 PLOT X1,Y 

190 NEXT Y 

110 FOR X=X1 TO X@ STEP —1 
12@ PLOT X,Y1 

130 NEXT X 

149 LET X1=X1-1 

150 LET YOYO+1 

169 LET Y1=Y1-—1 

170 FOR Y=Y1 TO YOSTEP —1 
180 PLOT X@,Y 

199 NEXT Y 
200 LET X®@=X@+1 
219 GO TO 50 


We need to stop the process somewhere so add 
165 IF YO>=Y1 THEN GO TO 500 
and if you want to check that we stop at the right place add 
500 PRINT “0” 
If you like this display and feel it could be extended to give a continu- 


ously moving video background in a room, you are absolutely right : 
wait for Section 1.7! 


Bouncing 


Many of the early TV games involved a ball bouncing around the screen. 
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We are now going to look at how to get a moving object to bounce off a 
flat object. 


We assume that if our ball hits a wall at a certain angle it will bounce off 
at the same angle, i.e. :— 


You are probably getting the sinking feeling that this is going to involve 
more theory: true, but not too much. It all has to do with the gradient 
of the line followed by the ball. We find that the gradient has its sign 
reversed after reflection from the wall. If you are into such things, this 
is because 


tan (90—a) = — tan (90+a) 
or incident gradient = -reflected gradient 


Therefore if a ball travelling with a gradient of m hits a wall at a point 
(a,b) then it will continue with gradient negated and its equation will be 


y = m(x—a) + b 
or y=mx + (b—ma) 


For drawing on the ZX81 ‘we also have to be clear that if the ball hits a 
wall it will change direction on the screen, and therefore needs to be 
plotted carefully. 


The following program draws a line starting at the origin on the screen 
at an angle specified by the user and then bounces it off the edges of the 
screen. Its path is left on the screen to illustrate the theory above. 

Use angles between 20° and 8@° for useful results. 


10 PRINT “ANGLE="; 

20 INPUT A 

30 CLS 

40 LET M=TAN(A*PI/189) 


5@ LET X=0 

69 LET I=1 

70 LET C=0 

80 LET X=X+l 

90 LET Y=M*X+C 

100 IF X<=@ OR Y<=@0 THEN STOP 
110 IF X>=43 OR Y>=43 THEN GO TO 140 
12@ PLOT X,Y 

130 GO TO 80 

149 LET M=—M 

150 LET l=I—2*(X=43) 

169 LET C=Y—M*X 

170 GO TO 80 


If you want to show just a single moving spot rather than continuous 
lines, add suitable UNPLOT and PAUSE statements. 


1.7. CIRCLES AND OTHER INTERESTING SHAPES 


We will use all this theory eventually in developing some good graphics 
games, so let us consider a final chunk of coordinate geometry. 


Circles 


We can specify the equation of a circle by noting that every point on the 
circle is the same distance away from the centre: 





Taking the centre (a,b) and the radius as r then we can say for a general 
point (x,y) on the circle, using the ubiquitous pythagoras that 
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(x—a)? + (y—b)? = r? 


and we can take x—aasr cos 6 
and y—basrsin@ where @ is any angle 


since (r cos 6)? + (r sin 6)? = r2(cos2@ + sin26) 
=r? as it happens 


Therefore we get x = a+rcosé 
and y=atrsing 


So let’s see what the ZX81 makes of plotting a circle: 


19 PRINT “RADIUS="; 

20 INPUT R 

30 PRINT R;“bCENTRE:bX="; 
40 INPUTA 

5@ PRINTA;“bY="; 

60 INPUT B 

79 PRINT B 

80 FOR O=@ TO 360 

99 LET P=O*PI/180 

199 PLOT A+R*COS P,B+R*SIN P 
110 NEXTQ 


RUN the program and enter the radius followed by the x— and y— co- 
ordinates of the centre. Make sure that the circle does not go over the 
edge of the screen in any direction. Before your eyes a circle will appear, 
albeit slowly. The slowness results from the evaluation of cosines and 
sines at line 19@ — the ZX81 takes a long time to work these out. 


Exercise 1(f): Work out the equation of a circle centred at the 
origin and radius 4@ and therefore write a program to draw 
a circle quadrant (quarter arc) on the screen with radius 40. 


Finally we choose a selection of interesting shapes and show how they 
may be plotted. 


Parabola 
Here is a nice parabola 


19 FOR X=@ TO 63 

20 LET Y=INT((2.52—0.04* X) *X) 
30 PLOT X,Y 

49 NEXT X 


Ellipse 


An ellipse is almost a general case of a circle or a parabola. Try this 
general ellipse plotter: 


PRINT “A="; 

INPUT A 

PRINT A;"bB="’; 

INPUT B 

PRINT B 

19 FOR Q=0 TO 360 

20 LET P=Q*PI/180 

30 PLOT A*(1+COS P),B*(1+SIN P) 
49 NEXTQ 


ahWNnN— 


Try it with various values for A and B such as: 


A = 30, B =20 
A = 20, B= 20 
A= 5 B= 21 


1.8 DRAWING WITH OTHER CHARACTERS 
The PRINT AT Instruction 


All our graphics work so far has been of the ‘join the dots’ variety, since 
all the PLOT statement can do is to black-in squares. Fortunately this 
is not the limit of the ZX81’s capability. The PRINT AT statement can 
aiso be used for picture drawing and it has one disadvantage but one 
considerable advantage over PLOT. The disadvantages is that it cannot 
address parts of the screen in so much detail as PLOT — the figure 
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below shows its limitations 


0 COLUMNS 31 


LINES 
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It can only draw in 22 x 32 positions and it works by means of specifying 
a line number and a column number, rather than standard x and y coord- 
inates. Its great advantage is that any ZX81 character can be placed at a 
position. 


The following simple routine illustrates the point 


19 INPUT L 

20 IF L<@ THEN STOP 
30 INPUT C 

40 INPUT S$ 

5@ PRINT AT L,C;S$ 
60 GOTO 10 


RUN the program and then keep entering groups of three items specify- 


ing line number, column number and character (or character sequence) 
and the ZX81 puts the character at this screen position. 


ZX81 Video Show 
Any of the programs previously considered can be modified to use 
PRINT AT rather than PLOT, and as promised here is a program to give 
a pleasant background video display to any room: 


10 LET LO=0 


20 


20 LET L1=21 ... 15 for 1K ZX81's 
30 LET CO=0 
49 LET C1=31 ... 15 for 1K ZX81's 
45 LET Z$=CHR$(INT(RND*11+128*(RND<@.5))) 
59 FOR L=L@TO L1 
69 PRINT AT L,CO;Z$ 
70 NEXTL 
89 FOR C=C@TO C1 
99 PRINT AT L1,C;Z$ 
199 NEXT C 
119 FOR L=L1 TO L@ STEP—1 
120 PRINT AT L,C1;Z$ 
130 NEXT L 
149 LET L1=L1-—1 
150 LET CQ#CO+1 
169 LET C1=C1—1 
170 FOR C=C1 TO CO STEP —1 
180 PRINT AT L@,C;Z2$ 
199 NEXT C 
200 LET L@L@+1 
205 IF LQ>=L1 THEN GO TO 500 
219 GO TO 45 
500 CLS 
510 RUN 


It could even prove as addictive as ‘Emmerdale Farm’! 
or if you do not appreciate squares, how about circles? 


19 FOR R=19TO 2 STEP —1 

15 LET Z$=CHR$(INT(RND*11+128*(RND<@.5))) 
20 FOR O=0 TO 369STEP 10 

30 LET P=Q*P1I/180 

49 PRINT AT 10+R*COS P,15+R*SIN P;Z2$ 

59 NEXT QO 

69 NEXT R 

7@ CLS 

80 GOTO 10 


Try making your own variations — perhaps using a basic ellipse shape 
which grows fatter, thinner, longer or shorter with varying characters 
being used to draw it. You need not stick to graphics characters, 
many normal characters or inverse video characters can be very nice. 
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19 REALTIME 
Instructions 


At the beginning of the chapter we saw that realtime programs are ones 
in which the computer responds to user action immediately, no matter 
what other action it is currently taking. The ZX81 instruction that 
provides this facility is INKEY$. There is however another instruction 
which assists in a similar feature, moving displays, and that is PAUSE. 


Almost all the programs in this section are designed for ZX81's running in 
compute and display mode (i.e. SLOW). However FAST mode is also 
available and in fact on 8K ROM ZX80’s it is compulsory. In FAST 

mode, the only way to generate moving displays in BASIC is to cause 

the ZX81 to display the results of its processing by the PAUSE instruction, 
or rather PAUSE and POKE together since problems occur if you forget 
the accompanying POKE. We will put very little emphasis on PAUSE in 
this section, since INKEY$ is the centre of the ZX81's realtime facilities. 


INKEY$ 


INKEY$ is at the same time the most peculiar and the most powerful 
instruction on the ZX81, and we hope that after reading this section and 
trying out the programs you will be rather better informed than if you 
only had access to Chapter 19 of the Sinclair Manual! 


First of all let us get our terminology right. INKEY$ is not really an 
instruction like LET or IF but a function, since it is used as part of a 
ZX81 statement, and in fact has to be accessed via the FUNCTION key. 
Whenever the ZX81 executes a statement which includes INKEY$ it 
looks at the keyboard, and if a key is being pressed at that instant, the 
character of the key is put into INKEY$, i.e. if you were pressing 3 then 


INKEY$ = “3” 


If a key is not being pressed when the line containing INKEY$ is ex- 
ecuted, then INKEY$ is set to the null string. 


The following two line routine shows how it works 


10 PRINT INKEY$; 
20 GOTO 10 
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3UN the program and then briefly touch any key on the keyboard. 
-et’s assume you touched P — you will see a number of P’s displayed on 
he screen. You may wonder why there are several rather than just one, 
ince you touched the key only once. To understand this you need to 
lave an appreciation of how fast the ZX81 is computing (even in SLOW 
node!): while you have your finger on a key, albeit briefly, the ZX81 
‘ycles round the GOTO 1@ loop several times, the number of times 
eing shown by the number of characters printed. Try pressing another 
:ey, and as soon as you do you will see some more characters displayed 
in the screen. See if you can touch a key so briefly that only one char- 
icter is displayed! While you are not touching a key, nothing is displayed 
in the screen, since INKEY$ is the nullstring, and PRINT ‘”’; produces 
iothing. However if line 10 had read 


19 PRINT INKEY$ 


.e. no semi-colon at the end, the program would have given quite a 
lifferent effect since PRINT ‘’’’ causes a new line to be displayed, and 
he ZX81 quickly runs out of screen space. 


“ry using the two line program above with entry of keys such as *, + 

r=, ie. shift keys. You will see that depression of SHIFT has no effect, 
iut SHIFTed keys are displayed normally, even keywords. There are 
iowever some exceptions eg: EDIT, FUNCTION, GRAPHICS and 
{UBOUT. These all produce ‘’?”’ on the screen, as does the NEWLINE key, 
Ve see from this that we can never enter graphic symbols via INKEY$ — 
ather a shame as we shall see later. Also SPACE is always interpreted 

s BREAK and this stops the program. 


“o summarise where we have reached so far, we have seen that INKEY$ 
3 a way of entering single characters into a program without the need for 
NPUT statements or even NEWLINE. 


Moving Blobs in Realtime 


‘our reaction to the above treatment of INKEY$ may well be “OK, so 
vhat?” since it is not immediately obvious how INKEY$ can be used. 
dopefully this little program may change your mind. 


10 LET L=10 

20 LET C= 15 

30 LET Z$=‘'m”’ (inverse space) 

40 IF INKEY$ = “5” THEN LET C=C—1 
50 IF INKEY$ = “6” THEN LET L=L+1 
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60 IF INKEY$ = “7 THEN LET L=L—1 
70 IF INKEY$ = “8” THEN LET C=C+1 
200 PRINT AT L, C; Z$ 
219 GO TO 40 


The program enables you to move a blob around the screen by pressing 
keys 5,6,7 or 8 and the blob moves according to the direction of the 
arrows on the keys. This is achieved by testing which key the user is 
pressing and changing accordingly the line and column numbers at which 
the blob is printed. RUN the program and see what interesting patterns 
can be produced. Only keys 5,6,7 or 8 will have any effect since these 
are the only values of INKEY$ for which the program takes any action. 
If the blob goes off a screen edge, the program generally crashes, so to 
overcome this add the following lines 


80 LET L=L—L* (L=22) + 22* (L=—1) ... 16 not 22 for 1K 
99 LET C=C —C* (C=32) + 32* (C=—1) .... 26 not 32 for 1K 


and we get what is known as ‘‘wraparound” — if the line goes off one 
edge it reappears at the other edge. 


It would also be pleasant if we had a choice of the type of character 
shown on the screen, rather than just a blob. With ZX81 technology all 
things are possible! Add this 


100 LET K = CODE INKEY$ 
119 IF (K<>@ AND K<33) OR (K>36 AND K<64) 
THEN LET Z$ = CHR$ K 


If you now press any single character key other than 5,6,7 or 8 this 
character becomes the one being used for drawing on the screen. To 
stop any of these programs, simply press the SPACE key. 


Note that in line 110 above we are careful to avoid taking a value of 
INKEY$ when no key is being pressed: we exclude it when it is equal 
to the null string (character code @). Note also that line 110 has 


LET Z2$ = CHR$ K 


rather than LET Z$ = INKEY$ as you might have expected. This is 
because it is possible that the value of INKEY$ might have changed 
between lines 100 and 110 (in particular it might be null) and this could 
cause inconsistencies in the program and therefore the resulting display. 
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1.10 EXAMPLE PROGRAMS 
Introduction 


In this section we will see how many of the concepts, and especially the 
maths, outlined above can be used in sophisticated realtime programs. 
Each program is given with detailed documentation so that the reader 
can understand how the program has been designed and developed. 
Appendix One shows the method of program design used and it is strongly 
recommended that a definite methodology should be used in programming 
Although it is very tempting to start typing in BASIC instructions as soon 
as possible when developing a program, this causes more delay later, and 
it is in fact much quicker to design a program properly before touching 
the keyboard. Also, if a program is developed according to our method, 
documentation such as that given below builds up naturally so that you 
do not have to write it all up afterwards. 


Anyway, on with the programs. 


SHOOTING GALLERY (1K Memory) 
Description 


The program simulates a shooting gallery that you might find at a fair. 
An object moves from left to right across the screen under a row of 
numbers 1 to 9. The player attempts to hit the object by pressing one 
of the numeric keys 1 to 9 as the object passes under the number. There 
are ten goes and the program displays the current number of hits and the 
go number. 


Sample Screen Format 


— line O 
— line 1 
— line 2 
— line 3 


123456789 
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Method 


j. | Set up screen and initialise hits H to zero 
ii. Carry out the following with go number G = 1,2, ---, 10 
Set object position C to zero 
Clear shot line 
Clear message line & print go number 
Display object at position C 
Ifakey 1 —9 pressed 1. display shot 
2. if object hit: A. Display message 
B. Increment & 
display H 
C. Jump to (6) 
Wait for key to be released 
Increment C 
If C less then 31 jump to (d) 
Wait for 5 seconds 


BO. O07 D 


9 OI & 


iii. Display end message & stop 
List of Variables 


no. of hits scored 

go number (between 1 and 10) 

number of key pressed (valid only for keys 1 — 9) 
position of object on line 


QO2Z20Lr 


Program Listing 


10 LET H=0 
20 PRINT 
30 PRINT “bbb 1bb2bb3bb4bb5bb6bb7bb8bb9bbb” 
(inverse spaces & digits) 
49 PRINT AT 4,0;"GO b NO.” (inverse) 
50 PRINT AT 4,26;"HITS” (inverse) 
60 FOR G=1 TO 10 
65 LET C=@ 
70 PRINT AT 3,0 a 
(inverse — 30 spaces) 
100 PRINT AT 4,6;G;TAB 12;"bbbbbbb”’ 
110 PRINT AT 3,C; HX” (inverse space and graphics 5) 
130 LET N=CODE INKEY$—28 
149 IF N<1OR N>9 THEN GO TO 220 
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150 PRINT AT 3,N*3;"*” (inverse asterisk) 
169 IF N*3<>C+1 THEN GO TO 210 

170 PRINT AT 4,12;"GOT b HIM” (inverse) 
180 LET H=H+1 

199 PRINT AT 4,30 ;H 

200 GOTO 249 

219 IF INKEY$<>” ’ THEN GO TO 210 
220 LET C=C+1 

230 IF C<>31 THEN GO TO 110 

249 PAUSE 250 

250 NEXTG 

260 PRINT AT 4,12;"THE b END” (inverse) 


MONEY MAZE (16K Memory) 
Description 


A treasure chest full of £5 notes is located in the centre of a maze. 
You are on the outside of the maze and have to reach the treasure by 
using keys 5,6,7 or 8 to control your movement (direction arrows). 
However the chest has caught fire and the longer you take the less 
money there will be. 


The program sets up and displays a 21 x 21 maze. The treasure chest is 
shown by £ and the player by O. A running counter of the amount of 
money left is shown to the right of the screen. The maze is displayed 
on the screen so that element i,j is at line i column j. 


Sample Screen Format 


line 1 
line 3 
line 5 
line 7 
line 9 


i 


line 13 > 
line 15 > 


| [£] £1000 
line 17 © 


line 19 > 
line 21 > Oo 
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Method 


Array A of size 21 x 21 is used to hold the maze, with walls held as 128, 
space as @ and the cash is 14@ (inverse £). 


i. Set up array as shown 
ii. Print array in character form 
iii. | Set sum of money M to 1000 


iv. Display M 

V. Set player’s position at bottom of maze, line L and column C. 
vi. Display player’s position 

vii. Pause to allow player time to see screen 

viii. Display player’s position 


ix. Burn a fiver from M, and if M is zero, display message and stop 
x. Display M 
xi. Read number N from keyboard 
xii. If N between 5 and 8 
a. Use N to update L and C to LI and Cl 
b. If position (Cl, LI) is the chest print message and stop 
c. If position (CI, LI) is space (not a wall) 


1. rubout position (C,L) 
2. change C to Cl 
3. change L to LI 
4. jump to (viii) 
xiii. jump to (ix) 
List of Variables 
A —_ array of size 21 x 21 holding maze 
|,J — loop counters used in setting up array 


— amount of money left 

— line no. of player's position 

column no. of player's position 

— code number of key pressed (valid for 5 to 8) 
new line no. of player’s position 

— newcolumn no. of player’s position 


orzor2 
| 


Program Listing 
10 DIMA (21,21) 


20 FOR !l=0 TO 8 STEP 2 
30 FOR J=I+1 TO 21-I 


28 


40 

50 

60 

70 

80 

90 
100 
110 
120 
130 
140 
200 
210 
220 
230 
240 
250 
260 
270 
300 
310 
320 
330 
332 
336 
340 
350 
355 
356 


360 
370 
380 
390 
400 
410 
420 
425 
430 


450 
500 


LET A(I+1,J)=128 

LET A(21—I,J)=128 

LET A(J,I+1)=128 

LET A(J,21—I)=128 

NEXT J 

NEXT | 

LET A(3,11)=0 

LET A(7,11)=0 

LET A(13,11)=0 

LET A(17,11)=0 

LET A(11,11)=140 

PRINT 

FOR I=1 TO 21 

PRINT “’b”; 

FOR J=1 TO 21 

PRINT CHR$ A(I,J); 

NEXT J 

PRINT 

NEXT | 

LET M=1000 

PRINT AT 11,22;"£";M 

LET L=20 

LET C=11 

PRINT AT L,C;O” 

PAUSE 500 

PRINT AT L,C; ‘“‘O” 

LET M=M—5 

IF M<@ THEN GO TO 600 

IF M<1Q@ THEN PRINT AT 19, 
22;"HURRY” 

PRINT AT 11,23;M;"‘bbb” 

LET N=CODE INKEY$—28 

IF N<5 OR N>8 THEN GO TO 350 
LET LI=L—(N=7)+(N=6) 

LET Cl=C+(N=8)—(N=5) 

IF A(LI,Cl)=149 THEN GO TO 500 
IF A(LI,Cl)<>@ THEN GO TO 350 
PRINT AT L,C;"b” 

LET L=LI 

LET C=Cl 

GO TO 349 

PRINT AT 10,22;"YOU GOT” 
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519 STOP 
600 PRINT AT 10,22;"TOO SLOW” 


DUCK SHOOT (16K Memory) 


The author wishes to thank the designer of a similar game for the 
Research Machines 389 Z Microcomputer for the idea behind ‘‘Duck 
Shoot”’, the author’s first experience of graphical games on a micro. 


Description 


A picture of a duck ona pond is displayed on the screen with the moon 
inthe sky. The object is to shoot the duck making sure that you do not 
hit the moon in the process. Shooting is done by means of a double- 
barrelled cannon at the bottom left of the screen which fires up into the 
sky and the cannon ball travels in a parabola to eventually hit the pond, 
and hopefully the duck. The player chooses the angle of elevation of 
the cannon. There are five goes. 


For each go the duck and the moon are displayed at different (random) 
positions. The duck is drawn at a position starting between columns 
12 and 27 at the bottom of the screen, and the moon starting between 
columns 12 and 18 at the top of the screen. Scores are shown at the 
top right of the screen while the barrel number and angle are displayed 
at the top left. The number of the go is shown on the duck itself. The 
duck has a range of comments which it makes depending upon the 
accuracy or otherwise of the player’s shot. The moon drops out of the 
sky if the cannon ball hits it. 


Sample Screen Format 


<=z 


BARREL 1 1 DUCKS 
ANGLE = 48 0 MOONS 
2 SHOTS 
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Method 


(i) Initialise scores HD(ducks), HM(moons) and S(shots) to zero 
(ii) Carry out the following for go numberG=1...5 
(a) clear screen 
(b) choose duck position D Setween 12 & 27 along line 
(c) choose moon position M between 12 & 18 along line 
(d) draw screen display and headings 
(e) carry out the following for barrel number B = 1 and 2 
(1) Display barrel number 
(2) Enter angle of elevation A 
(3) If angle not between 45° and 85° go to (2) above 
(4) Display angle 
(5) Plot path of cannonball. For each plot position 
(x,y) 


A. If (x,y) ison the moon 
(i) Increment HM (moon hits) 
(ii) Drop moon out of sky 
(iii) Increment and display S (shots) 
(iv) Go to (f) below 


B. If (x,y) ison the duck 
(i) If (x,y) is a central hit 
(a) Display “DEAD” 
(b) Increment HD (duck hits) 
(c) Increment and display S (shots) 
(d) Go to (f) below 
(ii) Display ““OUCH’”’ 
(iii) Go to (7) below 
(6) Display ‘“MISS” 
(7) Increment and display S (shots) 
(8) Wait 
(f) Wait 
(iii) Clear screen 
(iv) Display final score of ducks hit. 


List of Variables 


HD = no. of ducks killed 
HM = no. of times moon hit 
S = no. of shots fired 
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NOS<xX-3>WVSEO00H 
NN 


Equation 


go number (1—5) 

starting x-axis position of duck 

x-axis position of moon 

barrel number (1 or 2) 

angle of elevation of cannon (valid for 45° —85° only) 
loop counter for display of cannon ball’s path 
x position of cannon ball 

y position of cannon ball 

2 times M 

2 times D 

loop counter for display of falling moon 


nou uw tod tb ot bt ot teat 


The path of the cannon ball is plotted using the following equations: 


X 
and Y 


INT (0.0 14*1*(9@ —A)) 
INT (1*(190—1)*0.0172) for! =@... 100 


Wool 


The X equation is chosen so that the cannon ball lands in the pond at 

the far right of the screen when angle A is 45°. The Y equation is chosen 
so that the cannon ball reaches its maximum height when | = 59, i.e. in 
the middle of its flight path. 


Program Listing 


LET HD=0 

LET HM=90 

LETS=0 

FOR G=1TO 5 

CLS 

LET D=INT(RND*16)+12 
LET M= INT(RND*7)+12 
LET M2=M*2 

LET D2=D*2 

PRINT “BARREL” 

PRINT ‘“ANGLE=?” 

PRINT AT @,25;HD;“DUCKS” 
PRINT AT 1,25;HM;"“MOONS” 
PRINT AT 2,25;S;“SHOTS”’ 
PRINT AT 1,M;"‘eia’’ 

PRINT AT 2,M;""8D)” 
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120 PRINT AT 3,M;"#a” 

130 PRINT AT 21,03" vesccsssscssescssesseesseseen " (32 dots) 

149 PRINT AT 20,D;“—CJ bb/” 

150 PRINT AT 21,D;“(MI”’ ;CHR$(G+156) ;“mN” 

160 FOR B=1T0 2 

170 PRINT AT 0,6;8 

180 PRINT AT 1,6;“?b” 

199 INPUT A 

200 IF A>85 OR A<45 THEN GO TO 190 

205 PRINT AT 1,6;4 

219 FOR I=@ TO 100 

220 LET X=INT(9.014*1*(90—A)) 

230 LET Y=INT(I*(100-I)*0.0172) 

249 PLOT X,Y 

250 IF X<M2 OR X>M2+1 OR Y>41 OR Y<36 THEN GO 
TO 400 

270 LET HM=HM+1 

280 FOR Z=1 TO 18 

290 PRINT AT Z,M;"b” 

300 PRINT AT Z+1,M;“a8” 

319 PRINT AT Z+2,M;"—0” 

320 PRINT AT Z+3,M;"Sa” 

330 NEXT Z 

349 LET S=S+1 

350 PRINT AT 2,25;S 

360 GO TO 530 

400 IF X<D2 OR X>D2+9 OR Y>3 THEN GO TO 495 

410 IF X=D2 OR X=D2+1 OR X=D2+8 OR X=D2+9 THEN GO 
TO 450 

420 PRINT AT 20,D—4;“DEAD” 

430 LET HD=HD+1 

432 LET S=S+1 

434 PRINT AT 2,25;S 

449 GO TO 530 

450 PRINT AT 20,D—4:"OUCH” 

491 GO TO 500 

495 NEXT I 

497 PRINT AT 20,D—4;“MISS” 

500 LET S=S+1 

505 PRINT AT 2,25;S 

510 PAUSE 150 

520 NEXT B 
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530 PAUSE 150 

549 NEXT G 

550 CLS 

560 PRINT AT 10,10;“THE END” (inverse) 

570 PRINT AT 12,3;“YOU KILLEDb”;HD;“bDUCKS” 


Several more games are included in Chapter Three. 
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CHAPTER TWO — INFORMATION PROCESSING 


2.1 INTRODUCTION 


This chapter is aimed at readers who want to use a ZX81 with 16K RAM 
to store and retrieve quantities of information, i.e. who want the micro- 
computer to act as an electronic filing system. The objective may be to 
design programs to assist in leisure activities or in small businesses. If you 
do not have a 16K RAM pack you will not be able to use much of the 
material in this chapter, but perhaps as you read through you will be 
encouraged to invest in one! 


Data and Data Processing 


RG Anderson in his book ‘Data Processing and Management Information 
Systems’ defines data processing as ‘‘the systematic recording, arranging, 
filing, processing and dissemination of facts’. The term is often used 
synonymously with business computing as against scientific or technical 
computing. Asa general rule business data processing involves the simple 
manipulation of large quantities of information while technical com- 
puting involves the complex manipulation of small quantities of infor- 
mation. 


For example, a typical data processing activity might involve stock 
control: here a large number of records are maintained but the most 
complex processing involved would be simple addition or subtraction for 
goods received or despatched respectively. Contrast this with a typical 
technical computing activity, the evaluation of sets of equations: here a 
small set of coefficients is used as data but complex matrix arithmetic 
has to be used to produce the solutions. 


It is the author’s opinion that data processing is a much more realistic 
function for a home computer than technical computing. Many people 
would like a computer to handle all their filing, from addresses and 
telephone numbers to recipes, but how many require trigonometric and 
logarithmic processing capabilities? The only possible application of 
such facilities is in games (certainly a useful way to use a home com- 
puter), but in general, sophisticated maths is not required. It is un- 
fortunate that home computer manufacturers, Sinclair Research included, 
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have addressed themselves more towards providing these technical com- 
puting facilities rather than data processing facilities such as large main 
memory capacities and good backing storage. In other words, Mr. 
Sinclair, why not forget about ARCSIN, ARCCOS and LN and give us 
a megabyte of online storage instead! 


Hobbyhorses aside, a 16K ZX81 can be used for some very useful small 
tasks on the data processing side and we hope to give you the tools to 
develop your own such programs in this chapter. 


2.2 CHARACTER HANDLING 
Character Processing 


While technical computing is mainly concerned with crunching numbers 
together, data processing deals largely with characters, either alphabetic 
characters or numbers not used for arithmetic purposes (e.g. code 
numbers). It is therefore essential that the reader has a good grasp of 
ZX81 character handling before embarking upon an information pro- 
cessing project. We suggest that you read over Chapters 7 and 21 of 
the Sinclair Manual and then follow the sections below. 


Dimensions of Strings 


A string can be used without first DIMensioning it, but giving a string a 
dimension can be useful if we always want it to be of fixed length. As 
an example, try this: 


10 DIM A$(3) 
20 PRINT “ENTER A WORD” 
30 INPUT A$ 
49 PRINT A$ 
50 GO TO 20 


The program will print the first three characters of any word you enter 
because A$ can only contain three characters. 


To stop the above program is difficult, but possible: rubout the quotes 
around the cursor when invited to enter a word and then enter CHR$ 
(99**99). This causes the ZX81 to attempt to evaluate 9999 — a 
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number too large for it to hold — so it crashes with error code 6. 


Returning to dimensions of strings, it can be very useful to define a one 
character string which will always be used to INPUT responses to 
questions in a program, e.g. 


10 DIM Z$(1) 


100 PRINT ‘‘DO YOU WANT TO CONTINUE?” 
110 INPUT Z$ 
120 IF Z$=""N’’ THEN STOP 


You may wonder why we bother with a dimension — why not do this: 


199 PRINT “DO YOU WANT TO CONTINUE” 
119 INPUT Z$ 
120 IF Z$(1)="N’’ THEN STOP 


The answer is that if the user makes a null entry, i.e. just presses NEW- 
LINE, the first version is OK but the second version crashes with code 3 
at line 120 because Z$(1) does not exist! It is vital in data processing 
programs which other people will use that the INPUTs be made as idiot- 
proof as possible. (See BOMB-PROOFING in Section 2.5). 


Substrings 


As we will see later in this chapter, verification of information input to 
a program is very important. Otherwise bad data gets onto files and it 
tends to make the whole system look ropy. A common verification is 
to check whether a string is alphabetic, i.e. contains letters A ... Z only. 


19 PRINT “ENTER ALPHABETIC WORD” 

20 INPUT A$ 

30 IF A$=""""THEN GO TO 20 

40 PRINT A$; 

5@ FOR I=1 TO LEN A$ 

60 IF A$(I)<“A” OR A$(I)>“Z"" THEN GO TO 100 
70 NEXT | 

89 PRINT “IS ALPHABETIC” 

90 STOP 
100 PRINT “HAS ERROR CHARACTER AT POSITION’) 
119 PRINT “PLEASE RE-ENTER” 
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120 GO TO 20 


Several techniques are employed in this program. Firstly at line 30 — 
always test for a null input and if one is found go back to the INPUT 
statement: try this out and see the effect from the user’s end. Secondly 
at line 69 — relational operators work with characters as well as numbers. 
Lastly at line 10@— error messages should be as precise as possible to 
inform the user what he is doing wrong. 


N.B. Be careful when using this routine because it treats ‘space’ as non- 
alphabetic, so ““JOHN SMITH” would be rejected as non-alphabetic. 


Exercise 2(a): modify the above program to allow spaces and 
hyphens as well as letters A to Z. 


We often need to determine whether a string contains a given word or 
sequence of characters. 


Exercise 2(b): write a program to enter a sentence and then test 
whether it contains the word “THE”’ and give an approp- 
riate message. 


2.3. DESIGN OF DATA PROCESSING PROGRAMS 


Systems Analysis 


In the world of business computing the analysis, design and implement- 
ation of computerised systems is a profession in itself. Obviously we are 
not going to call in a professional systems analyst to design programs for 
our 16K ZX81, but many of the methods used by the professionals can be 
be scaled down and applied for our purposes. 


Is It Feasible? 


One of the first stages in systems analysis is the feasibility study — a 
survey of whether the area under study can usefully be computerised. 
Many data processing tasks are best done manually rather than by com- 
puter, and this applies especially to home DP. For example you may’ 
have some excellent ideas for a Recipe Access and Testing System for 
your spouse but how feasible is it that he/she will use RATS on a day-to- 
day basis? Do you have enough extra sockets or even room in the 
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kitchen for a ZX81, TV and cassette recorder? Will you be able to con- 
vince him/her that it is ten times better than his/her present manual 
system? Can the ZX81 cope with RATS storage requirements? Clearly 
these questions need honest answers before embarking upon a project 
which could consume many hours of precious time. A few of the areas 
you should consider are listed below: 


BENEFITS  — _ what substantial advantages would a computer- 
ised system have over the present system? 


ZX81 CAPACITY — can the ZX81 store the program routines 
and data necessary for the system? 


TECHNICAL — are you sufficiently knowledgeable about the 
ABILITY system and the relevant ZX81 facilities to 
implement your aims? 


TIMESCALE — _ can the system be implemented in the time 
available? 
USE — will the system be regularly and conscientiously 


used by the person(s) for whom it is designed? 


Only after getting a positive answer to the above questions should you 
proceed with the design. 


How Is It Done Now? 


Before designing a new system a systems analyst takes a detailed look at 
how the present system operates using techniques such as interviewing 
staff, examination of documents, questionnaires and observation. If 
you are designing a system to be used by yourself you will have a clear 
idea of how you currently handle things and how things could be 
improved. However if you are producing a program to be used by some- 
one else, you must get all this information from them. Since we are 
considering mainly filing systems on the ZX81 you need details of 


Number of file records — present and future requirements 
Size of records 

How records are identified 

How often records are added, changed or deleted. 

Typical contents of records 


39 


How records are processed 
Checking procedures 


When we discuss the design of DP programs you will see why: such facts 
are needed. 


How Should It Be Done? 


When getting together your ideas regarding features to be included in the 
computerised DP system, you need to be clear of the limitations of the 
current system and how these could be overcome. Eventually of course 
the facilities to be provided need to be listed in detail and a program 
routine designed to provide each facility. Appendix One describes a 
programming methodology that works: it is very important when writing 
a large program that a considerable amount of detailed program design 

is put in before touching the ZX81 keyboard. 


You will need to pay particular attention to record formats and screen 
formats, i.e. what will be held in a file and what will appear on the screen. 
File formats are discussed in detail in Section 2.4. Good screen formats 
are vital for a workable program, particularly if the program will be used 
by anon-computer specialist, for example your husband or wife. 
Typically, in a section of the program to allow you to add new records to 
the file, the information presented on the screen should clearly and 
concisely describe what data needs to be entered and in what order. 
Features such as inverse video and judicious use of PRINT AT statements 
can make the program very user-friendly rather than user-nasty. It is 

best to actually map out on a piece of graph paper what will appear on 
the screen at major points in the program, and this can then be used to 
give you line and column numbers when you come to program your 
PRINT statements. 


The Moment of Truth 


Having designed the program, written it and debugged it according to 
the rules in Appendix One, the time comes to actually use it — ‘go live’’ 
in computing terminology. If someone else is using the program make 
sure that they are well-informed as to what to do to reap the amazing 
benefits offered by the program or else your efforts will have been 
wasted. In fact, if your family or others will be using your masterpiece 
of the programmer's art, a major exercise on your part will be selling the 
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system to them and training them: people will not use a computer 
(particularly if they object to nasty electronic objects and trailing wires) 
unless they are convinced it will help them in their own tasks or 
activities. 


A final word of caution — a “parallel implementation” is often the best 
way of introducing your new system. In other words do not burn all 
your address books and telephone directories on the day that you intro- 
duce your Computerised Address and Telephone System. There is the 
remote possibility that someone might try something that you had not 
thought of and a hitherto unnoticed bug in CATS will jump out and 
grab the ZX81 by the throat; or even the not unheard of vagaries of 16K 
RAM packs could make the system die just after you have typed in a 
hundred and fifty names and addresses. 


2.4 DATA STRUCTURES 


Definitions 


In this section we consider how information may best be organised for 
use as an ‘electronic filing system’. 


First we define the terms used. A field is an item of data on a particular 
topic. A record is a collection of fields with some feature in common, 
and a file is a collection of related records, often organised in order. 


To illustrate this terminology we introduce a sample application, a club 
membership list. This example will be used as the basis for all the con- 
cepts introduced in later sections of the chapter also. Assume that the 
list is currently kept by means of cards in a box, one card per member. 
The file is then the collection of cards in the box, while a record is an 
individual card and a field is some item on the card, e.g. name. 
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A card might look like this: 


BETELGEUSE BREAKERS CLUB 


Membership Form 


N.B. For the 
uninitiated, HANDLE 
is the code name used 
to identify a breaker 
or CB user 


Post Code .. SWAMP eee 
Telephone ..Q..7... A 3.7. AEA. 
Special Interest oe REMOMAA ON. 





Files 


The formats of records and fields are very important since the file forms 
the heart of the data processing system. Each heading on the card above 
will be a field on a member's record in the Betelgeuse Breakers Club 
(BBC) system which we are now starting to design. Whereas on a card 
we can have a few dotted lines upon which can be entered information, 
in a computerised system we must be much more precise as to the 

length of fields. The maximum number of characters allowed for each 
field must be chosen carefully. Every character will take up a byte of 
ZX81 memory so brevity is to be encouraged, although clarity must not 
suffer as a result. 


Assume we choose the following: 


NAME — length 15 characters 

ADDRESS — _ length 50 characters 
POSTCODE — length 8 characters 
TELEPHONE NUMBER — maximum of 10 digits 
SPECIAL INTEREST —* length 20 characters 
MEMBERSHIP NUMBER — 3digits 

HANDLE — length 15 characters 
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Two fields above are numeric. As the reader is no doubt aware, numbers 
can either be stored in the ZX81 as characters or digits, e.g. 


LET A$="123" (characters) 
or LET A=123 (digits) 


As far as memory requirements are concerned, a character string is stored 
in N+2 bytes where N is the number of characters, while a number is 
always stored in five bytes. Therefore if a number is more than three 
digits long it is more economic to use numeric format than character 
format. Another consideration is the usage to which the number is put: 
if the number will be used in any calculations it may be best to store it 
in numeric format since arithmetic cannot be carried out on characters, 
although of course VAL can be used to convert a number from character 
format to numeric format. 


It may be helpful to the programmer if we split some of the fields down 
into subfields. For example, if we want to access membership records by 
surname then we could make NAME split into FORENAME and SUR- 
NAME, or perhaps INITIALS and SURNAME. Similarly, a separate 
field for TOWN could be useful: it all depends, as we discuss below, on 
how the file will be accessed. 


Tables 


The SPECIAL INTEREST field merits more detailed attention. It is 
quite likely that the interests of the Betelgeuse Breakers can be 
classified into main areas. To save space on the file we could then 
choose some code or code number to identify each of these special 
interests. For example: 


Code No. Special Interest 


1 Demolition 

Pangalactic Gargle Blasters 
Sirius Cybernetics Corporation 
Improbability Drive 
Interplanetary DX 

Vogon Poetry 


OnhWN 


and so on. 


If the actual interest had to be displayed somewhere in the program, a 
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table could be kept relating the code number to the special interest. In 
fact, for simplicity the code number could act as the subscript to a 
string array holding the special interests. 


Other Data Structures 


For completeness it should be mentioned that several other ways of 
organising data apart from simple files and tables are possible. Linked 
lists and tree structures can be very useful in certain applications. The 
diagram below shows a binary tree structure: 


HARRIS 
We Ye 
IBM HP ICL BURROUGHS 


GEC DATA GENERAL 


Such structures are implemented by means of each record having a left 
and right pointer to other records. Such organisation can be very useful 
in manipulating the data contained therein, since to move records around 
the tree (e.g. in sorting) involves only the resetting of pointers. 


Files, Tables and the ZX81 


Most microcomputers have facilities to store files of data on a secondary 
memory device such as cassettes or floppy discs. Unfortunately the 
Sinclair ZX81 does not. However, when a ZX81 program is SAVED on 
cassette the data used by the program (in variables and arrays) is stored 
as well, and it is this feature that enables us to consider file processing on 
a ZX81. 


Returning to our example, BBC could use an array for each field on a 
record 


eg. arrayN$ for NAMES 
array A$ for ADDRESSES 
array P$ for POSTCODES 
array T for TELEPHONE NUMBERS 
array S for SPECIAL INTEREST code numbers 
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arrayM — for MEMBERSHIP numbers 
array H$ for HANDLE 


Then a complete record would consist of a combination of members of 
these arrays, e.g. the first member would have his name stored in N$(1) 
address in A$(1), postcode in P$(1), telephone number in T(1) and so on. 
Assuming the system is designed for one hundred members, the arrays 
would be declared as follows: 


DIM N$(109,15) 
DIM A$(100,50) 
DIM P$(10@,8) 
DIM T(100) 
DIM S(100) 
DIM M(100) 
DIM H$( 100,15) 


We can immediately calculate how much storage time this will occupy 


array N$ takes up about 100x15 = 1500 bytes 
array AS " " 100x50 = 5000 bytes 

PSC 100 x 8 = 800 bytes 
ie T PPB IES | AOD X'S = 500 bytes 
ee S "oom" 100 x 5 = 500 bytes 
Ai M mom" 100x 5 = 500 bytes 
zs HS " " " 100x15 = 1500 bytes 


Total 10300 bytes 


Another approach to file storage on the ZX81 is to have a single array, say 
R$, holding the records so that R$(1) = first record, and so on. In this 
case each field starts at a given position and the numbers must be stored 
in character form. We may describe the records in R$ using a RECORD 
FORMAT document such as the one following :— 
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BBC System RECORD FORMAT Member File 


No. of Records= 100 Length of Record = 102 bytes 
Name of Array = RF 


FIELD START END 
FIELD NAME BYTE BYTE | LENGTH] VALUES 
Name 
Khddress 


ates 
ie 
| ttreer |e 

2| Town | 4 
eee! 

ae eee ae 
s+ Code 


tnteress 
Membership No. Lee 


For 10@ records we declare R$ as DIM R$(10@, 102) which will take up 
19200 bytes approximately. 





Notice that we have split ADDRESS into STREET and TOWN, that is 
the TOWN will always start at the 46th character position. 


This is in fact the record format that we will use in this chapter to 
develop BBC programs. However it may help to mention an alternative 
in record design — that of variable length fields. In the record format 
above, much space will be wasted by data not filling their allowed field 
sizes. For example our sample record would be stored as : 


1 16 46 


+ 


+ + 
[FORDbP REFECTbbb23bCHATHAMbGARDENSbbbbbbbbbbbb LONDON$ 


° is 8485 88 1 ve 


v4 ¥ 


BU ENS ERUSUDE RSW KEG BO IDSEU0sBO 7 42b EAR TUMANGEEDDE (b=space) 
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Which contains a lot of unused space. With variable length working we 
store a special terminator symbol after each field, and it is this that 
indicates to the program the end of one field and the start of another. 
We could use inverse characters as terminators, e.g.: 


FORDbPREFECT [SJ23bCHATHAMbGARDENS[TJLONDON [P]sw1Xb8LB 
(1101235964911 MJ42HJEARTHMAN 


which only takes up 71 bytes rather than 12 above. If this is an average 
saving of space, then with 190 records we will save about 3100 bytes. 

The trade-off is that extra processing is required by the program to find 
and pick out specific fields. If you are short on file storage space this is 
certainly the technique to use, if your computer has the facilities to do 
this. Unfortunately the ZX81 does not since we are limited by the way in 
which the ZX81 handles string arrays. If we want to store 10@ records in 
a string array R$, we must dimension R$ thus 

thus 


DIM R$(109,N) 


where N is the length of each record. Thus we must choose a fixed record 
length, although we may have variable length fields within a record. 


Variable Length Records 


The only way of implementing true variable length records is to store 
the entire file as one long string with separator symbols between each of 
the records. We could for example use inverse asterisks, e.g. 


R$ 
[Recono1 |. |Recono2? [- Reconoa[= [records [-[_ e 


In this way each record only takes up the number of bytes that it needs. 
However what you win on the swings you lose on the roundabouts and 
efficient storage formats require extra processing to access and use them. 
One fairly easy way of accessing records stored in this format is to set up 
a pointer array P, in which P(i) shows the starting position of record 

i in R$. So to extract record 15 from the array and put it into X$ we 
have 


LET X$ = R$(P(15) TO P(16)—1) 
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Using this method we can dispense with the separator symbols and store 
one record immediately after another. 


As an example we can write a program which invites the user to enter 

ten names; store the names in a single string N$ and set up pointers in 
array P to indicate the starting position of each name. Then we invite the 
user to enter a record number (between 1 & 10) and extract and print 
out the appropriate record. 


The program is listed below: 


19 DIM N$(300) 

15 DIM P(11) 

20 LET C=1 

30 PRINT “PLEASE ENTER 10 NAMES” 
49 FOR I=1 TO 10 

5@ PRINT TAB 5;1;")b”; 


60 INPUT X$ 
70 IF X$="""THEN GO TO 60 
80 LET P(I)=C 


99 LET L=LEN X$" 
95 LET N$(C TO C+L—1)=X$ 
109 LET C=C+L 


119 PRINT X$ 
120 NEXT | 
125 LET P(I)=C 


139 PAUSE 200 

135 POKE 16437,255 

149 CLS 

150 PRINT AT 19,0;’ENTER RECORD NUMBER OR @ TO STOP” 
16@ INPUT N 

165 IF N=@ THEN STOP 

170 IF N<@OR N>10 THEN GO TO 160 

180 CLS 

199 PRINT AT 19,7;“RECORD NUMBER";N 

200 PRINT AT 12,14;"1S” 

210 PRINT AT 14,(31+P(N)—P(N+1))/2;N$(P(N) TO P(N+1)—1) 
220 GO TO 130 . 


Method: 


(i) Set current position pointer C to 1 
(ii) Carry out the following for entry number |=1...10 
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(iii) 
(iv) 
(v) 
(vi) 
(vii) 
(viii) 
(ix) 
(x) 


(xi) 


(a) Enter name X$ 

(b) Store C at position | in pointer array P 

(c) Calculate length L of X$ 

(d) Insert name X$ into array N$ between positions C and 
C+L-1 

(e) Update C to next free position in array N$ 

(f) Print name X$ 

Store final value of C in P(11) 

Wait for 4 seconds 

Clear screen 

Enter record number N 

If N=@ stop 

If N not between @ and 1 then go back to (vi) 

Clear screen 

Display record number N by accessing between positions P(N) 

and P(N+1)—1 in array N$ 

Go back to (iv) 


List of Variable Names 


array N$ = _ holds the 10 names as a single string 

arrayP =_ holds pointers to starting positions of names in N$ 

C = shows next free position in array N$ 

I = loop counter indicating sequence number of name 
being entered 

X$ = name as entered 

L = length of X$ 

N = record number to be printed 

Comments 


The technique of adding records to a single string is very useful and can 
be applied to records having multiple fields, each of which can themselves 
be of variable length. 


N.B. The weird looking algebra at line 21@ in the column position is to 
make sure that the name is printed centrally on the screen, whatever the 
length. As we will see in the next section, clarity or even prettiness of 
output gives greater user-friendliness (Programs with Pleasant 
Personalities). 
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2.5 FILE PROCESSING 


Introduction 


Having considered the different ways in which information can be stored 
in memory we can look at typical ways of processing it. We will first of 
all look at our example of the Betelgeuse Breakers Club (BBC) member- 
ship list in more detail, delving into what processing facilities would be 
required; we then think of what features need to be incorporated in file 
processing systems generally; and finally we split file processing down 
into typical modules such as file creation, validation, sorting and up- 
date, and use the BBC example to illustrate each of these concepts. 


Sample Requirement 


In Section 2.4 a typical Betelgeuse Breakers Club membership card was 
shown, and the file format for a computerised system was also 
explained (see page 46). 


In the design of large computer program suites it is common for a user 
department to write a report specifying what facilities are required — an 
OPERATIONAL REQUIREMENT. Although we are considering 
information processing on a much smaller scale, it is still necessary to 
list what features our program aims to provide, since for every major 
facility a section will need to be included in the program. 


The Secretary of the Betelgeuse Breakers Club will probably be looking 
for facilities in a computer system similar to the requirements of any 
Club Secretary. Let us assume these are: 


(i) finding a record by name, membership number or handle 

(ii) getting a list of all members’ names and handles 

(iii) getting a list of all members interested in a certain topic. 

(iv) finding out which membership subscriptions are due: if, . 
as is likely, membership numbers are handed out chrono- 
logically, this effectively means listing members with 
numbers in a certain range. 


In addition there are certain run-of-the-mill facilities that must be 
available including adding and removing records and so on. These 
facilities will be formalised and developed as program modules in the 
final subsection of 2.5. 
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Program Features 


Before seeing how a typical file processing program is written it is a 
salutary exercise to consider certain elements of programming style and 
technique. We aim to design systems which will be bomb-proof (or idiot- 
proof), user-friendly and garbage-free. Such terms may mean as little to 
the reader at this stage as redneck radio to an Easter Bunny, but all will 
be made clear. 


BOMB-PROOFING is the careful design of programs and particularly 
INPUT sections so that the program cannot be made to terminate 
abnormally, (i.e. crash or bomb out). This is particularly important if 
the program user is not the program author. To achieve good bomb- 
proofing the program designer has to develop a very low opinion of 
the abilities of the intended user (even if it is himself), and hence the 
synonymous term idiot-proofing. In other words, if a mistake can be 
made, assume the user will make it. 


As a simple example, consider a part of a program in which a number 
between @ and 999 must be entered, e.g. as a membership number. 
Bomb-proofing theory suggests that we should tell the user the valid 
range and also check his entry: 


199 PRINT “ENTER MEMBERSHIP NO. (@—999)” 
110 INPUT M 
120 IF M<@OR M>999 THEN GO TO 110 


We find that causing the program to wait until the user enters a correct 
number is usually sufficient, but some designers prefer to add an extra 
message, e.g. 


119 INPUT M 

120 IF M>=@ AND M<=999 THEN GO TO 150 
130 PRINT “OUT OF RANGE:REENTER” 
149 GOTO 110 

3. ee 


However with this system, if the user persists in entering rubbish the 
number of error messages printed will eventually fill the screen and 
thus crash the system. 


Nevertheless the major fault in the discussion so far is that if the user 
makes a non-numeric entry, e.g. WHAT, then the system crashes. The 


51 


only way to get round this is never to have straight numeric INPUT 
statements but always to use strings and then convert them to numbers 
if they are valid, e.g. 


199 PRINT “ENTER MEMBERSHIP NO.(@—999)” 
119 INPUT M$ 

120 FOR I=1 TO LEN M$ 

130 IF M$(I)<“@" OR M$(1)>“9" THEN GO TO 110 
149 NEXT | 

150 LET M=VAL M$ 

169 IF M>999 THEN GO TO 110 


If several numbers are required to be input in a program it is a good idea 
to write a general subroutine to carry out the string-to-numeric conver- 
sion. 


As far as string inputs are concerned, the main idiotic action to beware 
of is the null input, i.e. where the user just hits the NEWLINE key. In 
the last example above LEN M¢§ at line 12@ evaluates to zero so the 

FOR .. NEXT loop is stopped and line 150 cannot be executed because 
VAL of the null string is incorrect (error code C). Therefore every string 
input must be followed by a test for the null string. Here: 


115 IF M$=""THEN GO TO 110 


However the reader should note that if the string has previously been 
D!Mensioned then this test will not work. This is because the ZX81 sets 
a string to all spaces when it is DIMensioned. You can show this by the 
following simple program 


19 DIM M$(3) 
20 INPUT M$ 
30 PRINT “.";Mg$;"." 


Do a RUN 29 and enter just NEWLINE : M$ is null. However including 
the DIM statement by RUN and following the exactly similar procedure 
causes three spaces to be printed for M$. 


USER-FRIENDLINESS was the second objective in program design. 


We have already referred to this and in fact idiot-proofing is part of 
being user-friendly or perhaps user-condescending. It consists of making 
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the program as easy to use and human-like as possible. Prompts should 
be in plain English wherever possible and screen formats should look 
nice with clear headings, central placing and highlighted where appropriate. 


As suggested in Section 2.3 the program designer may map out each 
screen display on a piece of graph paper and check whether the display 
meets these objectives. 


GA RBAGE-FREE was the third quality required, and this refers to the 
old computer adage ‘“GIGO” or “garbage in, garbage out”. In other 
words if you accept incorrect data into a computer system then you will 
get incorrect results. Here we are not considering errors which cause a 
program to crash but rather errors which produce wrong results. This is 
particularly relevant when information is being fed in to be used as file 
records: once information is on file it may be difficult and messy to 
remove it. 


Books on systems analysis theory list a vast range of checks which can be 
carried out on input data to avoid garbage being accepted onto file. Such 
validation methods include format checks, range checks, period checks, 
compatibility checks and many more. The alphabetic validation listed 
on page 37 is a typical example of making sure that numeric or special 
characters are not accepted into straight alphabetic fields such as that 
for a person’s name. 


Validation techniques often include an element of redundancy and the 
use of a check digit is a good example. A check digit is an extra digit 
at the end of a code number which is formed by some specified calcula- 
tion on the code number. The check digit would initially be calculated 
when the code-number was first allocated and then when the code is 
entered into a program, the program includes a routine to recalculate 
the check digit : if a discrepancy appears then the entry is incorrect. 


Unfortunately the reader may find that in all these three aims, some 


limitations have to be made purely because of lack of ZX81 memory 
space. 
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Program Modules 


All of the program modules required by the Betelgeuse Breakers Club 
will be included in a single ZX81 program. The program will be menu- 
driven, that is, a menu of options available will be displayed at the 
beginning, and after the option chosen is completed the program returns 
to the menu. 


The modular structure of the program is shown below 





DATA 
INITIALISATION 
RECORD RECORD 
ADDITION DELETION 
RECORD 
ENTRY 
VALIDATION 
ROUTINES 


DATA INITIALISATION 









RECORD RECORD FILE 
AMENDMENT RETRIEVAL LISTING 






In the first section of the program we declare the arrays required and 
other initial data values. 


The arrays used are: 


N$ = Member’s name, length 15 characters 

S$ = Member's street, length 30 characters 

T$ = Member's town, length 20 characters 

P$ = Member's postcode, length 8 characters 

BS = Member's telephone number, length 10 characters 
C$ = Member's interest code, length 1 character 

M$ = Member's number, length 3 characters 

H$ = Member's handle, length 15 characters 


R$ = the membership file, 80 records of 102 characters 
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Z$ = general user’s response, length 1 character 

I$ = table of interests, 9 records of 15 characters each 
X$ = record number entry, length 3 characters 

W$ = working space for sorting, length 102 characters 


We also define N, the number of records currently on file. Note we are 
restricting this to a maximum of EIGHTY because of memory limitations. 


This section is only used in the first program run to give initial values to 
data — All subsequent program runs are started by GO TO 50 so that 
previously defined data are retained. 


10 DIM N$(15) 

12 DIM S$(30) 

14 DIM T$(20) 

16 DIM P$(8) 

18 DIM B$(10) 

20 DIM C$(1) 

22 DIM M§(3) 

24 DIM H$(15) 

26 DIM R$(80,1@2) 

28 DIM Z$(1) 

30 DIM 1$(9,15) 

32 DIM X$(3) 

34 DIM W$(102) 

40 LET N=0 

41 LET 1$(1)=“Interest 1” 
42 LET 1$(2)="'Interest 2’’ 
43 LET 1$(3)=“Interest 3’’ 
44 LET 1$(4)=‘Interest 4” 
45 LET 1$(5)="Interest 5” 
46 LET 1$(6)=“Interest 6” 
47 LET 1$(7)="‘Interest 7” 
48 LET 1$(8)=“‘Interest 8” 
49 LET I$(9)=‘‘Interest 9” 


. .. actual data chosen as required 


MENU: 


The menu section displays the choice of options available and directs 
program control to the appropriate module (b=space, below). 
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180 


CLS 

PRINT TAB 4;’BETELGEUSEbBREAKERSbCLUB” 
PRINT 

PRINT ‘“1.bADDbAbRECORD” 

PRINT “2.,SORTbRECORDS” 

PRINT “3.b5DELETEbAbRECORD” 

PRINT ‘‘4.bCHANGEbAbRECORD” 

PRINT “5.bDISPLAYbAbRECORD” 

PRINT “6.bLISTbTHEbFILE” 

PRINT AT 19,0;"ENTERbNO.bREQUIREDbORb@bTObSTC 
INPUT Z2$ 

IF Z$=""0" THEN STOP 

LET MO=CODE Z$—28 

IF MO<1 OR MO>6 THEN GO TO 150 

GO TO 500 *MO 


MO is the menu option number chosen. 


RECORD ENTRY: 


Both option number 1 and option number 4 will require the entry of a 
record. In the former case, a new record will be added, whereas in the 
latter case an already existing record will be changed. However the 
entries will both require formatting and checking of inputs, so we write 
a general-purpose record entry module which can be used by both 


options. 


The module will be entered with RN set to the number of the record 
to be entered. It then follows this method: 


(i) 
(ii) 


Clear screen. 
Display sequence number RN of record to be entered 


(iii) Enter a member record: 


(a) Enter name into N$ 

(b) Enter street into S$ 

(c) Enter town into T$ 

(d) Enter postcode into P$ 

(e) Enter telephone number into B$, checking it is numeric 
(f) Enter interest code into C$, checking it is 1—9 

(g) Enter membership number into M$, checking it is 2-999 
(h) Enter handle into H$ 


(iv) Display record as entered. 


(v) 


User confirms or cancels record 
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(a) If confirmed (1) move N$, S$, T$, P$, B$, C$, M$ and 
H$ to R$ (RN) 
(2) add 1 to RN 
(3) Output confirmation message 
(4) Go to (vi) below 
(b) If cancelled (1) Clear screen 
(2) Qutput cancellation message. 
(vi) Invite entry of NEWLINE or M 
(a) If NEWLINE, go to (i) above 
(b) If M return to menu. 


Notice that we do not put the user’s entries straight onto the file R$: we 
demand positive confirmation of his entries before this happens (step (v) 
above). 


The BASIC for this section appears below: 


5000 CLS 

5010 PRINT TAB 4;“ENTRYbOFbRECORDbNUMBERb”;RN 
5020 PRINT AT 2,0;“NAME:”; (inverse) 
5030 INPUT N$ 

5050 PRINT N$ 

5060 PRINT AT 4,0;“ADDRESS” (inverse) 
5070 PRINT AT 5,4;“STREET:”; (inverse) 
5080 INPUT S$ 

5100 PRINT S$ 

5110 PRINT TAB 4;“TOWN:”; (inverse) 
5120 INPUT T$ 

5149 PRINT T$ 

5150 PRINT “POSTCODE:”; (inverse) 
5160 INPUT P$ 

5180 PRINT P$ 

5199 PRINT AT 9,0;"TELbNO:”; (inverse) 
5200 INPUT BS 

5220 GO SUB 9000 

5230 IF NOT OK THEN GO TO 5200 
5240 PRINT BS 

5250 PRINT AT 11,0;“INTERESTbCODE:”; (inverse) 
5260 INPUT C$ 

5280 GO SUB 9100 

5299 IF NOT OK THEN GO TO 5260 
5300 PRINT C$ 
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5310 
5320 
5340 
5350 
5360 
5370 
5380 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
5510 
5520 
5530 
5549 
5550 
5560 
5570 
5580 
5590 


PRINT AT 13,0;“MEMBERSHIPbNO:” ;(inverse) 
INPUT M$ 

GO SUB 920@ 

1F NOT OK THEN GO TO 5320 

PRINT M$ 

PRINT AT 15,0;“HANDLE:”; (inverse) 
INPUT H$ 

PRINT H$ 

PRINT AT 19,0;ISbTHISbCORRECT?” 
INPUT Z$ 

IF Z$=""N"’ THEN GO TO 5570 

IF Z$=""Y"" THEN GO TO 5460 

GO TO 5420 

LET R$(RN,1 TO 15)=N$ 

LET R$(RN,16 TO 45)=S$ 

LET R$(RN,46 TO 65)=T$ 

LET R$(RN,66 TO 73)=P$ 

LET R$(RN,74 TO 83)=B$ 

LET R$(RN,84)=C$ 

LET R$(RN,85 TO 87)=M$ 

LET R$(RN,88 TO 102)=H$ 

PRINT AT 19,0;’,RECORDbADDEDbTObFILE” 
LET RN=RN+1 

RETURN 

CLS 

PRINT AT 19,0;“ENTRYbCANCELLED” 
RETURN 


As you can see it is all good solid boring stuff — the meat of data pro- 
cessing. However, having it as a subroutine at least means we do not 
need to enter it twice. 


The routine returns with RN incremented by one if a record has been 
entered onto the file, or the same if no record has been entered. 


The screen format used is: 
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ENTRY OF RECORD NUMBER — 


NAME: 

ADDRESS 
STREET: 
TOWN: 

POSTCODE: 

TEL. NO: 

INTEREST CODE: 

MEMBERSHIP NO: 

HANDLE: 


Message Line 





VALIDATION ROUTINES 


The record entry section invokes three subroutines to check the entry of 
telephone number, interest code and membership number. Each of the 
routines return a value OK, set to zero if the entry was invalid or one if 
it was valid. 


Telephone number validation: 
9000 LET OK=0 


9010 FOR I=1TO 10 
9920 IF B$(I)="b” OR (B$(I)>="0" AND B$(1)<="9") THEN 


GO TO 9040 
9930 RETURN 
9040 NEXT! 


9950 LET OK=1 
9960 RETURN 


Interest code validation: 


9190 LET OK=0 

9110 IF C$="‘b’ THEN LET C$="0" 

9120 IF C$<‘’O"" OR C$>"9" THEN RETURN 
9130 LET OK=1 

9149 RETURN 
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Membership number validation: 


9200 
9210 
9230 
9240 
9250 
9260 
9270 
9280 


LET OK=0 

FOR Il=1TO3 

IF M$(I)<“@" OR M$(I)>“9" THEN RETURN 
NEXT | 

LET M=VAL M$ 

IF M=@ THEN RETURN 

LET OK=1 

RETURN 


We can also have record number validation: 


9300 
9310 
9320 
9330 


9340 
9350 
9360 
9370 
9380 
9390 


LET OK=0 

IF X$(1)="“b” THEN RETURN 

FOR l=1TO 3 

IF X$(I)="b” OR (X$(1)<="9"" AND X$(I)>="0") 
THEN GO TO 9350 

RETURN 

NEXT | 

LET VN=VAL X$ 

IF VN>N OR VN=@ THEN RETURN 

LET OK=1 

RETURN 


RECORD ADDITION: 


This just adds a record at the end of the file and optionally repeats 


500 
510 
520 
530 


540 
550 
560 
570 
580 


LET RN=N+1 

GO SUB 5000 

IF RN=N+2 THEN LET N=N+1 

PRINT AT 20,0;“PRESSbNEWLINEbTObADDbRECOR 
b’”’;-RN 

PRINT AT 21,6;“ORbMbFORDMENU” 

INPUT 2% 

IF Z2$="b’’ THEN GO TO 510 

IF Z$=""M”" THEN GO TO 50 

GO TO 550 
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RECORD AMENDMENT 


This is very similar to record addition, but allows the user to re-input 
and therefore change a record already on file: 


2000 CLS 

2010 PRINT AT 20,0;“ENTERbNUMBERbOFbRECORD” 

2020 INPUT X$ 

2030 GO SUB 9300 

2040 IF NOT OK THEN GO TO 2020 

2050 LET RN=VN 

2100 GOSUB 5000 

2200 PRINT AT 20,0;“PRESSbNEWLINEbTObCHANGEb 
ANOTHER” 

2210 PRINT AT 21,6;“ORbMbFORbMENU” 

2220 INPUT Z$ 

2230 ~—sIF Z$="‘b’” THEN GO TO 2000 

2240 =F Z$="‘M’" THEN GO TO 50 

2250 GOTO 2220 


SORT: 


It is likely that the membership file will be in membership number order, 
since as previously mentioned, numbers will probably be allocated in 
chronological sequence. However a sorting routine is included to allow 
for any anomalies. 


There are many different methods of sorting information into sequence 
and such methods are easily found in computing textbooks. The 
following routine uses a simple exchange sort: 


For pointer q from 1 top: 
If no. of record gq > no. of record q + 1 then swop record q and 
qt+1 


The routine uses characters 85 to 87 of record R$, the membership 
number: if sequencing is required on name or another attribute this 
specification may easily be changed. 


1900 CLS 
10992 PRINT AT 20,0;"SORTING ...” 
19906 FOR P=N—1 TO 1 STEP—1 
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1010 
1020 


1030 
1040 
1050 
19060 
1070 
1080 
1990 
1100 
1110 


FOR O= 1 TOP 

IF R$(Q,85 TO 87)<=R$(Q+1,85 TO 87) THEN GO 
TO 1960 

LET W$=R$(Q) 

LET R$(Q)=R$(O+1) 

LET R$(Q+1)=W$ 

NEXT Q 

NEXT P 

PRINT AT 20,0;“SORTbCOMPLETED” 
PAUSE 250 

POKE 16437,255 

GO TO 50 


RECORD DELETION: 


If someone leaves the Betelgeuse Breakers Club then their record must 
be deleted from file. To do this the user selects this option and specifies 
the sequence number of the record to be removed. 


1500 
1505 


1510 
1520 
1522 
1524 
1530 
1540 
1550 
1560 
1570 
1580 
1590 


1600 


1610 
1620 
1630 
1640 
1650 


CLS 

PRINT AT 20,0;“ENTERbNO.bOFbRECORDbFORD 
DELETION” 

INPUT X$ 

GO SUB 9300 

IF NOT OK THEN GO TO 1510 

LET D=VN 

PRINT AT 21,0;“DELETING ...” 

FOR I=D TO N-1 

LET R$(I)=R$(I+1) 

NEXT | 

LET N=N—1 

CLS 

PRINT AT 19,0;“RECORDb”;D;"“bHASbBEENb 
DELETED” 

PRINT AT 20,0;“PRESSbNEWLINEbFORbMOREb 
DELETIONS” 

PRINT AT 21,6;“OR M FOR MENU” 

INPUT Z$ 

IF Z$="b’’ THEN GO TO 1500 

IF Z$=""M" THEN GO TO 50 

GO TO 1620 
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RECORD RETRIEVAL 


One of the requirements of the Breakers Club Secretary was to retrieve 
a record by name, membership number or handle. This is how it is done: 


2500 
2510 


2520 
2530 
2540 
2550 


2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 


2680 
2690 
2700 
2710 
2715 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 


2820 


CLS 

PRINT AT 19,0;“SPECIF YbDONEbOFbTHEb 
FOLLOWING:” 

PRINT AT 12,0;“NAME:” 

PRINT “MEMBERSHIPbNO:” 

PRINT “HANDLE:” 

PRINT AT 20,0;"ENTERbVALUEbORbNEWLINEb 
FORbEACH” 

INPUT N$ 

PRINT AT 12,5;N$ 

INPUT M$ 

PRINT AT 13,14;M$ 

INPUT H$ 

PRINT AT 14,7;H$ 

IF N$(1)="b” THEN LET N$(1)="*" 

IF M$(1)="b” THEN LET M$(1)="*” 

IF H$(1)=""b” THEN LET H$(1)="*”" 

PRINT AT 20,0;SEARCHINGbbbbbbbbbbbbbbbbbbbbbb' 
FOR l=1 TON 

IF R$(I, 1 TO 15)=N$ OR R$(1,85 TO 87)=M$ OR 
R$(1,88 TO 102)=H$ THEN GO TO 2715 

NEXT | 

CLS 

PRINT AT 19,5;“NObRECORDbFOUND” 

GO TO 2810 

CLS 

PRINT TAB 19;“RECORDbNO.b”;I 

PRINT AT 2,0;R$(1,1 TO 15) 

PRINT R$(1,16 TO 45) 

PRINT R$(1,46 TO 65) 

PRINT R$(1,66 TO 73) 

PRINT R$(1,74 TO 83) 

PRINT R$(1,84) 

PRINT R$(1,85 TO 87) 

PRINT R$(1,88 TO 102) 

PRINT AT 20,0;“PRESSbNEWLINEbFORbANOTHERD 
RECORD” 

PRINT AT 21,6;“ORbMbFORbMENU” 
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2830 INPUT Z$ 

2849 ~—IF Z$="b’’ THEN GO TO 2500 
2850 ~=—s| FF Z$=""M"’ THEN GO TO 50 
2860 GOTO 2830 


Notice that it is helpful to the user to display a message to show that the 
ZX81 is busy doing something, e.g. SEARCHING at line 2650. 


FILE LISTING: 


This section shows how to implement a full or selective file listing. In 
the listing, only members’ names and handles are displayed. 


Options are: 


(i) full listing 

(ii) listing of members with a given interest 

(iii) listing of members with membership numbers above a 
certain figure 


3000 CLS 

3019 PRINT TAB 10;LISTbRECORDS” 

3020 PRINT AT 20,0;"DObYOUbWANTbAbFULLDbLISTb 
(Y/N)?”" 

3030 INPUT Z$ 

3049 ~=—sIF Z$=""Y’’ THEN GO TO 3065 

3050 ~ =F Z$=""N"’ THEN GO TO 3120 

3060 GOTO 3030 

3065 CLS 

3070 FORI=1TON 

3080 SCROLL 

3099 PRINT AT 15,0;R$(1,1 TO 15);;";R$(1,88 TO 102) 

3190 NEXT! 

3119 GOTO 3350 

3120 PRINT AT 20,0;"SELECTbBYbINTERESTbORb 
NUMBER?b” 

3130 INPUT Z$ 

3149 =F Z$="I" THEN GO TO 3170 

3150 =F Z$="‘N” THEN GO TO 3260 

3169 GOTO 3130 

3170 = PRINT AT 2,10;"INTERESTS”’ 

3180 FOR I=1TO9 
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3190 
3200 
3210 


3220 
3230 
3249 
3245 
3250 
3260 


3270 
3280 
3290 
3295 
3300 
3310 
3320 


3330 
3335 


3340 
3350 
3360 
3370 
3380 


PRINT 1;"".b’’;1$(1) 
NEXT | 
PRINT AT 20,0;“ENTERbINTERESTbCODEb 
NUMBERb(1—9)” 
INPUT C$ 
GO SUB 9100 
IF NOT OK THEN GO TO 3220 
LET M$="999"" 
GO TO 3300 
PRINT AT 20,0;"" LISTDMEMBERSbWITHbNUMBERSb 
>?bbb’’ 
INPUT M$ 
GO SUB 9200 
IF NOT OK THEN GO TO 3270 
LET C$="'** 
CLS 
FOR l=1 TON 
IF R$(1,84)<>C$ AND R$(1,85 TO 87) 
<=M$ THEN GO TO 3340 
SCROLL 
PRINT AT 15,0;R$(1,1 TO 15);’’:"; 
R$(1,88 TO 102) 
NEXT | 
PRINT AT 20,0;"-PRESSbNEWLINEbFORbDMENU” 
PAUSE 5000 
POKE 16437,255 
GO TO 50 
Summary 


When the above routines have been entered, records can be added and 
the system used. Once data has been entered, it is vital that the system 
is always started by GO TO 59, since RUN automatically clears data. 
Always SAVE the system on cassette whenever any file additions or 
modifications have been made. 


Although your own file processing application may not be identical to 
the Betelgeuse Breakers Club system, the same principles apply and 
many of the routines in this chapter may be used directly. 
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CHAPTER THREE — EDUCATION 


3.1 THE ZX81 AS AN EDUCATIONAL TOOL 


Introduction 


At the time of writing Sinclair Research is operating a special offer to UK 
schools whereby a complete 16K ZX81 system with printer can be 
obtained at half-price. The offer came about in response to a Govern- 
ment-funded scheme to install a microcomputer in every secondary 
school, by providing a 50% subsidy for the purchase of either an Acorn 
Atom or a Research Machines 380Z. 


Even without such a scheme for the Sinclair ZX80 this microcomputer 
found a place in many educational institutions. Certainly the ZX81 will 
prove even more popular. School students themselves will start to find 
that it is within their budgets, or rather their parents’. The ZX81 has 
many facilities that could make it a useful educational resource, but the 
key facility in education is of course suitable software. In this chapter 
we consider various types of educational computing and the design of 
software to be used in the primary and secondary sectors. 


Computer Studies 


Many secondary schools use microcomputers largely for examination 
subjects such as CSE or GCE ‘O’ level Computer Studies or GCE ‘A’ 
level Computer Science. These subjects generally require students to 
carry out substantial programming with a number of documented 
programs being submitted as part of the course assessment. 


Most schools equipped with microcomputers allow and encourage 
students to get involved with programming. Even many primary 
schools in the author’s region are encouraging children to develop their 
own programs with assistance from teaching staff. 


In order for a microcomputer to be suitable for the learning of computer 
programming by a range of school students and also for more compli- 
cated project work for external assessment, the machine must be very 
flexible. The ZX81 scores well in this area and has a number of facilities 
that make program entry and development much easier than on many 
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similar micros. In particular the entry of keywords by single key de- 
pressions and the automatic syntax checking of lines has been found to 
aid beginners considerably. The ZX81’'s line editing capability is also 
unusually sophisticated for a machine of its size. 


For more advanced programming the ZX81 has many powerful number- 
handling and text-handling facilities permitting a range of applications 
programs to be developed. Obviously the addition of 16K memory 
extensions are vital for any degree of sophistication, but with this a great 
deal of potential is available. Finally, the addition of a printer at around 
£50 (projected at the time of writing) makes the system suitable for 
project work where hard copy is vital : in fact the cheapness of the 
printer is a considerable advantage over other systems. 


On the negative side, ZX81 report codes are clumsy in program 
development. It is a nuisance having to look up the meaning of codes 
in order to find out why a program is going wrong. The tiny keyboard 
with its multifunction keys, while being a novelty and definite aid for 
those not familiar with keyboards, is a considerable disadvantage when 
entering long and complicated programs. 


General Subjects 


Increasingly schools are buying computers for use as educational aids 
in general subjects, rather than in computer studies. This seems to be a 
more realistic and sensible approach for many secondary students since 
it is much easier to recognise the value of computer technology if a 
student is already aware of actual problems which he later discovers a 
computer can help to solve. Similarly for primary schoolchildren a 
background in using micros as too/s similar to cassette recorders or 
projectors enables them to encounter computers in their later educa- 
tional or working lives without having inbuilt prejudices against the 
technology involved. 


In this area therefore we are analysing the validity of the 2X81 asa 
black-box (!) providing educational facilities. Obviously a crucial aspect 
here is the quality and relevance of the software used, and since the best 
educational software is written by subject teachers rather than by com- 
puter people, this chapter aims to aid the reader in producing good soft- 
ware. However we can make some general comments about ZX81 
BASIC and its relevance in this area of use. Presentation of information 
is very important in many subjects, and the graphics features of the 
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ZX81 are helpful although of limited resolution; similarly the SLOW 
compute and display facility is very useful in displaying active processes 
on the ZX81 screen. The inverse character displays available are also 
good but it could be argued that the provision of lower case characters 
would have been more helpful: it is a considerable disadvantage at the 
primary level or in any language work to have to use upper case char- 
acters only. 


Being able to interact with computer programs in realtime, using INKEY: 
can be an advantage in the educational area, and exercises in coordinatio! 
can easily be designed using a limited number of keys. In fact the touch- 
sensitive keyboard can easily be partitioned off by overlays, with the 
active keys being labelled with special symbols according to the applicati: 
currently in use. 


Categories of Educational Programs 


Before embarking upon the study of specific programs let us consider 
what general categories of programs can be used in the primary and 
secondary spheres to aid the teaching of non-computing subjects: this 
chapter does not seek to develop programs for Computer Studies, or for 
use in educational administration (see Chapter Two for ideas on this). 


Demonstration or simulation programs are those with little student 
involvement, either run by a teacher or without any more inputs. Such 
programs are of limited value but can be used to demonstrate the facilitie 
of a machine to an introductory group or at a more advanced level to 
demonstrate some process that is difficult to explain or model otherwise, 
eg: a dangerous chemical experiment might be shown by the reagents anc 
products being displayed on the screen. 


Programmed learning programs depend upon a program taking on to a 
small extent the role of a teacher: typically a program might contain 
teaching material on a topic and the student would respond to certain 
questions posed by the program. His response would determine the 

next block of material displayed by the program. Since these programs 
often require the storage of a great deal of textual material to be effectiv: 
the value of such programs on the ZX81 is limited. 


Test or quiz programs are a simpler variant of the previous category. 
Here a bank of questions is held in a program and the student is given 
each question in turn (or perhaps randomly from a large section of 
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questions) and has to reply by entering his answer on the keyboard. 
The computer then responds by assessing his answer as right or 
wrong, and if the latter a hint or further help may be given. At the 
end a score appears. If the quiz is substantial the program may be 
written so that the student may stop in the middle, SAVE everything 
on cassette and restart from where he left off at a later time: the 
ZX81 is one of the few microcomputers which makes this very easy. 


Modelling programs simulate a real-life process so that the user can be 
involved in the process without the accompanying problems or equip- 
ment. For example a complete list of chemical compounds with their 
reactions to certain tests can be held on file and the student can then 
be presented by the program with an unnamed compound and can 
perform a series of tests on it until he can finally determine what it is — 
all without getting his white coat dirty. 


Games programs often have sound educational value, and many programs 
at primary level can be written as games to achieve their goals. Even 
quite stuffy programs such as maths quizzes can be written with a game- 
like flavour eg: a game of snakes and ladders in which the player has to 
get a sum right before he can throw dice. 


A selection of different types of programs appears in the remainder of 
the chapter. Many ‘standard’ educational programs can be picked up 
easily from text books, magazines or groups such as MUSE, and it is not 
the author’s intention to re-reproduce such material. Instead programs 
have been chosen which particularly use the educational facilities of 
the ZX81. 
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3.2 EDUCATIONAL PROGRAMS 


MATHS STEPPING STONES (16K) 
Background 


The first program in this section has been chosen to illustrate how an 
essentially simple and boring maths testing program can be made inter- 
esting and dynamic using realtime graphics. 


Here is the simple and boring version: 


10 LET S=0@ 
20 FOR I=1 TO 10 
30 LET A=2+INT(RND*8) 
40 LET B=2+INT(RND*8) 
5@ LET C=A*B 
60 PRINT AT I,0;1;TAB 2;")b";A;“bXb?b=b” :C;"’b”’ 
70 INPUTG 
80 IF G=B THEN GO TO 110 
90 PRINT AT 1,15;’’NO.bANSWE RbISb’’;B 
100 GOTO 120 
119 PRINT AT I,15;“CORRECT” (inverse) 
115 LET S=S+1 
120 PRINT AT 1,8;B 
130 NEXTI| 
149 PRINT 
150 PRINT “YOUbGOTb";S;“bRIGHTbOUTbOFb10” 


There are 10 questions of the type 4 x ? = 32 and the data names used 
are 


S = number of questions answered correctly 

| = question number 

A ) 

B  )_ the question posed in the form A X B=C 
G4 

G = user’s attempt 


There is nothing novel about this type of program and personal compute! 
magazines and books are full of such things. Let us now consider a 
program which aims to test exactly the same principles but which does 
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it in a much more attractive way. 


Description 


The player is on one side of a river and a treasure chest is on the other 
side. The chest contains magic gold coins which as time goes on are 
turning into frogs: the longer the player takes to cross the river the more 
frogs and less gold coins. The player crosses the river by means of five 
stepping stones, but to reach each stepping stone he has to answer a 
maths question. If the player has not crossed the river after twenty 
questions the stones disappear and the player falls into the river. This 
also happens if all the coins have turned into frogs. 


Method 


(i) Initialise score S to zero and coins CO to 100 
(ii) Draw river scene on screen 
(iii) For | from 1 to 20 
a) choose A at random between 2 and 9 
b) choose B at random between 2 and 9 
c) Evaluate C as A times B 
d) Display | and question as A x ?=C 
e) If a key has been pressed: 
1) ‘If key = value of B then 
(a) Display message 
(b) Add 1toS 
(c) IfS=6 display message and stop 
(d) Move man 
(e) Go to (3) below 
2) Display message 
3) Pause 
4) Repeat to (iii) 
f) Subtract 1 from CO and display CO. 
g) Goto (e) if no key pressed above. 
h) If CO is zero, go to (iv) below. 
i) | Repeat to (iii) 
(iv) Display message and stop. 
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Screen Format 


O 


-- @74..@74..@74..@7..W72. <a 


Question and message line 





Program Listing (16K) 


20 
30 


40 
50 
60 
70 
80 
90 
100 
110 
120 
125 
130 
140 
150 
155 
160 
170 
180 
190 


LET S=@ 

LET CO=100 

PRINT AT 3,3;"..23 RRs BARR RS RRR ee RR ee 
“CO 
PRINT AT 2,29; i” 

PRINT AT 4,29; i” 

LET X=0@ 

GO SUB 500 

FOR |=1 TO 20 

LET A=2+INT(RND*8) 

LET B=2+INT(RND*8) 

LET C=A*B 

PRINT AT 5,0;1;TAB 2;“)b";A;“bxb?b="";C; 
IF C<1@ THEN PRINT “‘b” 

PRINT AT 5,15;“bbbbbbbbbbbbbbb” 

LET K$ = INKEY$ 

IF K$=“““THEN GO TO 310 

PRINT AT 5,8;B 

IF CODE K$—28<>B THEN GO TO 280 
PRINT AT 5,15;“CORRECT” 

LET S=S+1 

IF S<>6 THEN GO TO 220 


200 PRINT AT 6,0;YOUbGOTb’;CO;"“bGOLDbCOINSb+b’’;100 


“bFROGS” 


210 STOP 
220 LET X=5*S 
230 FOR J=0 TO 2 


72 


240 
250 
260 
270 
280 
300 
310 
315 
320 
325 
326 
330 
340 
350 
360 
500 
510 
520 
530 


PRINT AT J,X—5;"‘bbb”’ 

NEXT J 

GO SUB 500 

GO TO 290 

PRINT AT 5,15;"NO.bANSWERDbISb’’;B 
PAUSE 300 

LET CO=CO-1 

IF CO=@ THEN GO TO 340 

PRINT AT 3,29;b’’;CO 

IF CO<1@ THEN PRINT “’b”’ 

IF K$=""THEN GO TO 140 

NEXT | 

PRINT AT 3,3) ‘sevsistassateccenentyiies a: 
PRINT AT 6,0;“HARDbLUCKb—bYOUbWILLbGETbWET”’ 
STOP 

PRINT AT 0,X+1;"“0” 

PRINT AT 1,X;"= a” 

PRINT AT 2,X;"UEbED)” 

RETURN 


List of Variables 


S = = number of stepping stone upon which man is standing 
CO = number of gold coins left 
X = column position of man 
| = number of current question 
A =) 
B =) the question posed in the form A X B=C 
C =) 
J = loop counter 
Comments 


The child using the program need only press a single key to enter his 
answer — the use of INKEY$ removes the need for NEWLINE at the end 


of entries. 


After each attempt the correct sum stays on the screen for six seconds 
and the coin transmutation also temporarily halts. This period can be 
cut short by pressing NEWLINE if required, since this terminates the 
PAUSE. If the man reaches the chest then the game ends with a 
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message showing how many coins (and frogs!) he obtains. 


To make the program easy to use a number of PRINT statements giving 
instructions on play should be included at the beginning of the listing. 


Exercise 3(a): The theme of the program — crossing a river to 
a Treasure Chest — could be used in many different tasks other than a 
maths quiz, or at varying levels of difficulty. Modify the program to 
apply to a subject area of your choice. 


SPELLING BIG WORDS (16K) 


Description 


This program is a spelling test which works by means of a word being 
displayed with a missing letter and the child has to enter the letter within 
atime limit. The word is displayed as four times normal size using 

direct access to the monitor character table. Words are entered by the 
teacher in a separate part of the program with the letter to be omitted 
being entered as an inverse character. N.B. Words up to 8 letters. 


Method 


Teacher: (i) Forl from 1to1@ 
Enter word number | 
(ii) Stop 


Child: (i) SetscoreS to @ 
(ii) For! from 1 to 10 
a) Display word I, large with letter omitted 
b) Set counter to 20 
c) Display counter 
d) If no key pressed 
1) Decrement counter 
2) Display counter 
3) If counter = @, display message & go to 


(g) 
4) Go to (d) above 
e) If key pressed is correct 
1) Add 1toS 
2) Display message 
3) Go to (g) 
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(iii) 


f) | Display message and show correct letter 
g) Pause 
Display score S and stop 


Screen Format 


Line O 
Lines 
2-5 


Line 7 


TIME : 


~ CUPBO RD 


Message Line 





Program Listing (16K) 


10 
20 


90 

100 
210 
220 
225 
226 
227 
230 
240 
250 
260 
270 
280 
290 
300 


DIM W$( 10,8) 

PRINT TAB 7;TEACHERSbSECTION”’ 
PRINT “ENTERbWORDSbWITHbLETTERbTObBE” 
PRINT “OMITTEDbINbINVERSEbFORM”’ 
FOR |I=1 TO 10 

PRINT AT 1+5,5;"WORD";1;TAB 12;"="; 
INPUT W$(1) 

PRINT W$(1) 

NEXT | 

STOP 

LET S=0 

FOR I=1 TO 10 

CLS 

FAST 

PRINT AT @,0;1 

FOR K=1TO8 

LET C=CODE W$§(I,K) 

IF C<128 THEN GO TO 280 

LET M$=CHR$(C—128) 

LET C=0 

FOR L=@ TO 7 

LET P=PEEK(7680+C*8+L) 

LET V=128 
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310 
320 
330 
340 
350 
360 
370 
380 
390 
490 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 


FOR J =@TO7 

IF P<V THEN GO TO 350 
PLOT 8*(K—1)+J,39—L 

LET P=P—V 

LET V=V/2 

NEXT J 

NEXT L 

NEXT K 

SLOW 

LET X=20 

PRINT AT @,13;TIME:20” 
LET K$=INKEY$ 

IF K$<>“"THEN GO TO 490 
LET X=X-1 

PRINT AT @,18;X;"’b”’ 

IF X<>@ THEN GO TO 420 
PRINT AT 7,0;“TOObSLOW” 
GO TO 540 

IF K$<>M$ THEN GO TO 530 
LET S=S+1 

PRINT AT 7,0;“CORRECT.” 
GO TO 540 

PRINT AT 7,0;“WRONG.” 
PRINT AT 7,10;"“IT bWASb’’;W$(1) 
PAUSE 300 

POKE 16437,255 

NEXT | 

CLS 

PRINT AT 7,5;"YOUbSCOREDb’’;S;"bOUTbOFb10” 


List of Variables 


W$ 


<UrZQ0KAN-— 
“A 


array holding ten eight-character words 
number of word currently considered 
score out of ten 

letter of current word 

code of letter in word 

missing letter in word 

loop counter 

value of location in character table 

a power of two used to access bits in P 


oud wou t tb ue a 
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loop counter 
time counter 
key pressed by player 


J 
X 
K$ 


Comments 


The large display of the word being tested helps to give the program con- 
siderable visual impact and the single key entry of answers is also useful. 
The quiz proper is started by GOTO 219. 


There is a delay while the ZX81 sets up the large word on the screen and 
this takes place with a blank screen (uses FAST mode) in order that the 
player only has a given time limit to choose his answer: he does not see 
the word gradually appearing on the display. The routine is explained 
on page 102. Display of large characters is applicable to many areas of 
language teaching. 


Exercise 3(b): Write statements to ensure that only valid entries 
are permitted in the teacher’s section. 


SPOTS BEFORE THE EYES (1K) 


Description 


Here is a ZX81 version of a program which first appeared in ‘The ZX80 
Companion’ under the title of PATTERN RECOGNITION. The idea 
behind the program is based upon Glenn Doman’s book ‘Teach Your 
Baby Maths’, in which it is suggested that children can be taught to 
recognise quite large numbers of dots (up to one hundred) with sufficient 
practice. The program makes use of the PAUSE instruction to display 
a collection of spots for a very short time before the user enters the 
number. There are ten goes and a score is given at the end. The program 
runs on a 1K ZX81. 


Method 


(i) Set scores S, T and U to zero 

(ii) For go number G from 1 to 10 
a) Choose R at random between 20 and 100 
b) Display R spots for 2 seconds 
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(iii) 


c) Enter user’s attempt N 
d) IfN=R_= (1) display ‘‘CORRECT” 
(2) add 1 toS 
(3) go to (h) below 
e) If |N—R| <5,(1) add 1 to T 
(2) go to (g) below 
f) If IN—-R| <10,add1toU 
g) Display “INCORRECT” and value of R 
h) Wait for five seconds 
Display scores. 


Program Listing (1K) 
10 LET S=0 
20 LET T=0 
30 LET U=0 
40 FOR G=1 TO 1@ 
50 LET R=2@0+ INT(RND*81) 
60 FAST 
70 FOR l=1 TOR 
80 PRINT “FH”: 
85 IF RND<@.5 THEN PRINT “‘b”; 
90 NEXTI 
100 PAUSE 100 
105 POKE 16437,255 
110 CLS 
120 SLOW 
130 PRINT “HOWbMANY ?b”’; 
149 INPUTN 
145 PRINTN 
150 IF N<>R THEN GO TO 190 
160 PRINT “YES” (inverse) 
170 LET S=S+1 
180 GOTO 250 
190 IF ABS(N—R)>5 THEN GO TO 226 
200 LET T=T+1 
210 GOTO 240 
220 IF ABS(N—R)>1@ THEN GO TO 246 
230 LET U=U+1 
240 ~=PRINT “NO,b’”;R 
250 PAUSE 250 
255 POKE 16437,255 
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269 CLS 

276 NEXTG 

280 PRINT “SCORE:bb’;S;“bCORRECT,b’;T;"bWITHINbS, 
bb’’;U;“bWITHINb10” 


List of Variables 


score correct 
score within 5 
score within 10 
go number, 1--10 
number of spots 
loop counter 
user’s attempt 


2-DOacAaAM 
touuw tou owed 


Comments 


Note that the addition of line 85 ensures that the spots appear in a 
random pattern — without it the user can use the length of the pattern 
to estimate the number. The score given at the end in three parts 
(correct, within 5 and within 10) gives the user a clear idea of his 
performance. 


The program would run perfectly well in FAST Mode, but the listing 
above reverts to SLOW mode for the input section as a matter of the 
author's preference! The display of the spots must be in FAST mode 
so that the two second display of the spots is effective. 


Exercise 3(c): Why is the ABS function included in lines 190 
and 2290 and what would happen if it was omitted? 


GRAB THE GRUNGER (16K) 


Description 


No discussion of primary level educational programs is complete with- 
out looking at grid games, of the HUNT THE HURKLE variety. In such 
programs a grid is displayed on the screen and an object (an imaginary 
creature such as a Hurkle, or in this case a GRUNGER) is chosen to be 
at a random position in the grid. The player then has a number of 
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guesses to find the object and in some variations the object may move or 
even try and find the player. The educational value lies in that the player 
has to specify grid positions by means of standard X and Y axis co-ordin- 
ates, and the program gives the player hints by means of specifying the 
direction in which to move to find the object. 


The following program uses a 15 x 15 grid in which the dreaded Grunger 
is hiding. The player has five tries to find it and after each attempt the 
program tells the player in which direction to proceed, e.g. SOUTH- 
EAST. The game ends and repeats when the player finds the Grunger 

or when he runs out of guesses. 


Method 


(i) Display instructions and grid with labelled axis 
(ii) Choose random position of Grunger as (A,B) 
(iii) For go number | from 1 to 5 
(a) Enter user’s version of position, (X,Y) 
(b) If (X,Y) = (A,B) 
(1) Display CORRECT 
(2) Go to (v) below 
(c) Display direction to move 
(iv) Show Grunger’s position 
(v) Wait 
(vi) Go to (i) 


Screen Format 


GO NE 
YOU HAVE 4 TRIES TO FIND HIM 
123 45678 9 10 11 12 13 14 15 


9 
8 
7 
6 
5 
4 
3 
2 
1 
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Program Listing 


19 PRINT TAB 5;AbGRUNGERDISbHIDINGDbIN”, TAB 8;’'Ab 
15bXb15 GRID”’,/",YOUbDHAVEb5bT RIESbTObF INDbHIM” 
20 FOR!=15TO 1 STEP —1 
30 PRINT TAB 6;1;TAB 9; RRS 
49 NEXT | 
59 PRINT TAB 9;123456789111111bX’”’ 
69 PRINT TAB 18; “012345” 
70 PRINT AT 19, 1;“Y" 
80 LET A=INT (RND*15) + 1 
99 LET B=INT (RND*15) + 1 
100 FORI=1TO5 
119 PRINT AT 2,9;6-I 
120 PAUSE 500 
13@ POKE 16437,255 
149 PRINT AT 21,0;bbbbbbbbbbbbbbbbbbbb” 
150 PRINT AT 21,0;1;")bX=""; 
160 INPUT X 
170 IF X<1 OR X>15 THEN GO TO 160 
180 PRINT X;",Y="; 
199 INPUT Y 
200 IF Y<10OR Y>15 THEN GO TO 190 
219 PRINT Y 
220 PRINT AT 15—Y+3, X+8;1 
230 IF X=A AND Y=B THEN GO TO 500 
240 PRINT AT @Q,5;"bbbbbbbbbbbbbbbbbbbbb’’, TAB 8; 
“pbbbbbbbbbbbbb” 
250 PRINT AT @,13;"GOb’; CHR$ (51*(Y<B) + 56*(Y>B)); 
CHR$(42* (X<A) + 60* (X>A)) 
260 NEXT | 
270 PRINT AT @7;"SORRYb—bITbWASDb’,A;"","";B 
280 PRINT AT 15—B + 3,A + 8; “’G” 
299 GO TO 510 
509 PRINT AT @,12; “CORRECT” 
510 PRINT AT 2,0;bbbbbbbbbbbbbbbbbbbbbbbbbbbbbb”’ 
520 PAUSE 9000 
530 POKE 16437,255 
549 CLS 
559 RUN 
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List of Variables 


A = x position of Grunger 

B = y position of Grunger 

X = user’s guess, x position 

Y = user's guess, y position 

| = loop counter and go number 
Comments 


Notice how the number of tries left is shown at the top of the 
screen, as part of the original playing instructions. To modify the 
program for 1K, omit the display of the grid, i.e. lines 20—70, 220,280 
and modify lines 149 and 159 to use screen line 4 instead of line 21. 


Exercise 3 (d): What size grid can be designed for a 1K ZX81 t 
include a grid display? 


COPYCAT (1K) 
Description 


Here is a straight forward memory test. A sequence of letters is dis- 
played, one letter at a time, on the ZX81 screen and the player has to 
repeat the sequence afterwards. The sequence starts at three letters but 
goes up to twenty! Letters are displayed eight times normal size for 
clarity, using a PRINT AT version of the routine used in B}1G WORDS 
on page 74. At the end the player is given a mark showing the 
maximum number of letters he has copied correctly. The program wor 
ona 1K ZX81. 


Method 


(i) Generate 20 random letters in A$ 
(ii) For no. of letters | from 3 to 20 
(a) For letter number J from 1 to | 
1) Display letter J of A$, large 
2) Wait for two seconds 
3) Clear screen 
(b) Enter user’s version of sequence, X$ 
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(c) If correct 
1) Display “RIGHT SO FAR...” 
2) Wait for five seconds 

(d) If incorrect display message, correct sequence and score 
(I—1) 


(iii) Display ““CONGRATULATIONS” 


Program Listing (1K) 


10 
20 
30 
40 
50 
55 
60 
70 
80 
90 
100 
110 
120 
130 
149 
150 
160 
170 
180 
186 
190 
200 
210 
220 
225 
230 
240 
250 
260 
270 
280 
290 
300 


DIM A$(20) 

FOR I=1 TO 20 

LET A$(I)=CHR$(INT(RND*27)+38) 
NEXT | 

FOR !=3 TO 20 

CLS 

FOR J=1 TO! 

LET C=CODE(A$(J)) 

FOR H=0 TO 7 

LET P=PEEK(7680+C*8+H) 

LET V=128 

FOR G=@TO 7 

IF P<V THEN GO TO 150 

PRINT AT H,G;"” 

LET P=P—V 

LET V=V/2 

NEXT G 

NEXT H 

PAUSE 100 

POKE 16437,255 

CLS 

NEXT J 

PRINT “SEQUENCE="; 

INPUT X$ 

PRINT X$ 

IF X$<>A$(1 TO 1) THEN GO TO 300 
PRINT “RIGHT SO FAR...” (inverse) 
PAUSE 2590 

POKE 16437,255 

NEXT | 

PRINT “CONGRATULATIONS” (inverse) 
STOP 

PRINT “NOb—b”;A$(1 TO 1);’.bYOUbGOTb”;I—1 
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List of Variables 


A$ = array holding 20 character sequence 

| = loop counter and count showing length of current 
sequence 

counter showing character in current sequence 
counter indicating appropriate number of byte in 
character table 

value of byte in character table 

a power of 2 

counter showing current bit being tested 

player's version of sequence 

character code of current character 


a 
oul 


QOxXxo< 
wv” 


Comments 


By changing the randomising instruction at line 30 the program can 
easily be modified to handle sequences of numbers, or even graphics 
symbols. 


Exercise 3(e): Change line 30 to produce sequences of digits 
Q to 9 rather than letters. 


PICKING PAIRS (16K) 


Description 


A useful exercise of memory whether by a child or an adult is the 
game of Concentration, in which a number of cards are shuffled and | 
out singly face down. The player then has to choose a pair of cards, 
look at them, and if they are a pair of the same type (e.g. Aces, Three 
they are left face up. Otherwise they are turned face down again and 
another pair chosen. This continues until all the cards are face up. 
Clearly the player has to try and remember the positions of cards tha 
has seen. 


This program works on the same basis, using a grid sized 8 x 8 filled v 
eight sets of the letters A to H. The player chooses a pair by specifyi 
a pair of column (X) and row (Y) positions. | f an identical pair is fou 
the letters stay on the screen, whereas if the letters chosen are differe 
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they disappear after ten seconds. Running totals of choices and pairs are 
displayed on the screen. Entry of positions is done by single key 
depressions, NEWLINE not being needed (i.e. INKEY$ is used) and there 
is built-in error checking. 


Screen Format 


line @ > 8 

line 2 > 0 8 
i 7 CHOICES=@0 oF 5S 
bers 6 PAIRS = 0 ers 
has 5 x Y + 10 
ei 4 SQUARE 1 £71 
ie 3 SQUARE 2 + 13 
ae 

line 16” ie 1 

line 18 * 8 





Program Listing 


5 DIM B(4) 
19 DIM A$(8,8) 
15 PRINT “SETTINGbUP”; 
20 FOR I=1TO8 
30 LET A$(I)="“ABCDEFGH” 
49 NEXT I 
45 FOR I=1 TO 100 
47 IF |=10*INT(I/10) THEN PRINT “.”; 
509 FOR J=1 TO 4 
55 LET B(J)=INT(RND*8)+1 
60 NEXT J 
65 LET X$=A$(B(1),B(2)) 
7@ LET A$(B(1),B(2))=A$(B(3),B(4)) 
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75 

80 

85 

90 

95 
100 
105 
107 
110 
115 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
232 
235 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 


LET A$(B(3),B(4))=X$ 

NEXT | 

CLS 

PRINT 

FOR l=1TO8 

PRINT “be a aa aaa 
PRINT “bMbMEb Mb Mb MEDD MDD” 
NEXT | 

PRINT “bE aaa aaa eee 
PRINT AT 18,2;1b2b3b4b5b6b7b8”’ 
PRINT AT 9,2;"1b2b3b4b5b6b7b8” 

FOR L=2 TO 16 STEP 2 

PRINT AT L,@;9—L/2;TAB 18; 9—L/2 
NEXT L 

LET P=@ 

LET O=@ 

PRINT AT 3,21;"CHOICES = @” 

PRINT AT 5,22;“PAIRS=0” 

PRINT AT 10,29;"XbY’’ 

PRINT AT 11,20;SQUARE 1” 

PRINT AT 13,20;“SQUARE 2” 

PRINT AT 13,29;"bbb” 

PRINT AT 11,29;"bbb’’ 

LET L=11 

LET C=29 

GO SUB 600 

LET X1=K 

LET C=31 

GO SUB 600 

LET Y1=K 

IF CODE (A$(X1,Y1))>128 THEN GO TO 230 
LET L=13 

LET C=29 

GO SUB 600 

LET X2=K 

LET C=31 

GO SUB 600 

LET Y2=K 

IF CODE (A$(X2,Y2))>128 THEN GO TO 230 
PRINT AT 18—2*Y1,2* X1;A$(X1,¥ 1) 
PRINT AT 18—2*Y2,2* X2;A$(X2,Y 2) 

LET O=O+1 
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420 PRINT AT 3,29;0 

430 IF A$(X1,Y1)=A$(X2,Y2) THEN GO TO 480 
449- PAUSE 500 

450 PRINT AT 18—2*Y1,2*X1;"b” 

460 PRINT AT 18—2*Y2,2* X2;"b” 

470 GO TO 230 

480 LET P=P+1 

499 PRINT AT 5,28;P 

500 LET A$(X1,Y 1)=CHR$(CODE(A$(X1,Y1))+128) 
519 LET A$(X2,Y2)=CHR$(CODE(A$(X2,Y2))+128 ) 
520 IF P<>32 THEN GO TO 230 

530 PRINT AT 15,22;“WELLbDONE” (inverse) 
549 PRINT AT 2,29," bemutlemd’’ 

550 PRINT AT 4,29;" 55” 

560 STOP 

600 PRINT AT L,C;’’?” (inverse) 

610 LET K$= INKEY$ 

620 IF K$<="8" AND K$>="1" THEN GO TO 650 
630 PRINT AT L,C;’?” 

649 GO TO 600 

650 LET K=VAL K$ 

660 PRINT AT L,C;K 

670 RETURN 


List of Variables 


array of four random numbers used to shuffle A$ 
8 x 8 array of characters 

loop counter 

loop counter 

line number counter 

column number counter 

no. of identical pairs chosen 

no. of choices made 

= coordinates of first member of pair 

= coordinates of second member of pair 
value of key pressed 

entry of x or y position 


wv 


ou << iiudw to uuu 
Na 


AAXXOVOrC-POD 
apo 


Comments 
The program demonstrates several interesting features. The subroutines 
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at line 690 shows how an input prompt may be highlighted by a 
‘blinking’ question mark and then accepted without NEWLINE, i.e. 
using INKEY$. 


The eight sets of eight letters are initially put into A$ in sequence and 
then shuffled using one hundred random exchanges. 


Exercise 3(f): How can you crash the program while it is waiting 
for an x or y input? Modify the program to overcome this. 


PRIMES (1K) 


Background 


Having considered a number of primary level programs we now look at 
higher things. As mentioned above, the best educational programs are 
written by subject specialists, so the author’s intention with the rest of 
the chapter is to illustrate some techniques for readers to apply to their 
own areas. The topic chosen is mathematics, and the next two 
programs are demonstrations to illustrate mathematical concepts or 
techniques. An excellent reference for mathematical computer 
programs is ‘A Collection of Programming Problems and Techniques” 
by Maurer and Williams, published by Prentice-Hall, Inc. 


There is a slight problem when doing complex maths on the ZX81, as 
illustrated by 


PRINT 20 — 0.000000001 
which does not give 19.999999999 or even 2@ but 52. Yes, there is a 


bug in the ZX81’'s floating point arithmetic which leaps out when handlir 
numbers of considerably different magnitudes. Beware! 


Description 
The following program accepts any number greater than one and cal- 


culates and prints the number’s factors if any, or indicates that it is a 
prime number. 
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Method 


(i) Enter number M 
(ii) If M less than two, stop 
(iii)Set NtoM 
(iv) Set divisor D to 2 
(v) If N is divisible by D 
a) Display D 
b) Divide N by D 
c) Go to (v) 
(vi) Add 1toD 
(vii) If D less than M go to (v) 
(viii) If N>1 display “PRIME” 
(ix) Wait 
(x) Go to (i) 


Program Listing (1K) 


5 CLS 
10 PRINT “ENTERbNUMBERb”; 
20 INPUT M 
30 IF M<2 THEN STOP 
49 LET N=M 
50 PRINT N 
60 LET D=2 
70 IF N<>D*INT(N/D) THEN GO TO 100 
80 PRINT D;’’b”; 
85 LET N=N/D 
99 GO TO 70 
199 LET D=D+1 
119 IF D<M THEN GO TO 70 
120 IF N>1 THEN PRINT “PRIME” 
130 1F N=1 THEN PRINT “AREbTHEbFACTORS” 
149 PAUSE 9999 
150 RUN 


List of Variables 


M 
N 
D 


number as input 
number divided by factor(s) 
divisor 
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Exercise 3(g): Modify the above program so that when calculat- 
ing whether m is prime,the highest possible factor used is 
the square root of m. 


ITERATION (1K) 


Description 


The ZX81 is an excellent tool for demonstrating simple iterative tech- 
niques for the solution of equations. The Newton Raphson method is 
used to solve an equation of the form 


f(x) =0 


by taking an initial approximation xo to the solution x= and successive 
improving it by generating a sequence: 
XX X_ Xq ves 


which converges to the solution. 
The iterative formula is 


Me gS a me RD 
f1(x,) 


Where f‘(x) is the differential of f(x). 
We determine whether we have reached the solution by considering 
successive approximations : if two approximations xj and x;+, fulfill: 


| Xi—xj+1|<e where e is a small constant then we are close 
enough. e is chosen by the user according to the accuracy required. 


The program accepts an equation of up to the fifth order and given an 
initial approximation, calculates a solution. 


Method 


(i) Enter order of equation N 
(ii) For counter | from N+1 to 1 
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(iii) 
(iv) 
(v) 


(vi) 


(vii) 


(a) Enter coefficient A(I) (for aj4_ in aj4 4x!) 

Enter approximation XA 

Calculate array B, the differential coefficients. 

Calculate and print next approximation XB using coefficients 
in AandB 

If XA—XB <@.00001 then 

(a) Display solution 

(b) Stop 

Set XA to XB 


(viii) Go to (v) 


Program Listing 


10 
30 
40 
50 
60 
65 
70 
75 
80 
90 
100 
110 
120 
130 
149 
150 
180 
190 
200 
210 
220 
230 
240 
250 
260 
265 
270 
280 
290 


DIM A(6) 

PRINT “ORDER="; 

INPUT N 

IF N>5 OR N<1 THEN GO TO 40 
LET N=INT(N) 

PRINT N 

FOR I=N+1 TO 1 STEP —1 

SCROLL 

PRINT AT 1,0;“COEFFTbOFbX* *";1—1;"="; 
INPUT A(I) 

PRINT A(I) 

NEXT | 

PRINT “APPROX="; 

INPUT XA 

PRINT XA 

LET C=2 

LET F=A(1) 

FOR I=2 TO N+1 

LET F=F+A(I)*XA**(I—1) 

NEXT | 

LET DF=A(2) 

FOR l=2 TON 

LET DF=DF+A(I+1) *1*XA**(I—1) 
NEXT | 

LET XB=XA—F/DF 

SCROLL 

PRINT AT 1,0;APPROXb”’;C;="";XB 
LET C=C+1 

IF ABS(XA—XB)< 0.099901 THEN GO TO 320 
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300 LET XA=XB 
319 GO TO 180 
320 PRINT “SOLUTION=";XB 


List of Variables 


> 
i] 


array holding coefficients of powers of x 
e.g. f(x) = agx5 + agx4 taqx3 +a3x2 taox tay 


N = order of f(x) i.e. highest power of x 

{ = loop counter 

XA = } successive approximations 

XB ) 

F = f(x) at XA 

DF = f'(x) at XA 

C = number of approximations 
Comments 


The program almost fills a 1K ZX81 and there is very little room left for 
ascreen display. Therefore if using a 16K machine, extend the number 
of approximations displayed, i.e. change the PRINT AT instructions to 
use a line around 15 or so. 


Exercise 3(h): In what circumstances would line 26@ terminate 
with an error? Modify the program to overcome this. 


THE QUIZ (16 K) 


Description 


At the beginning of the chapter we reviewed types of educational 
programs. This program is a general purpose quiz in which the teacher 
can set up a bank of questions and answers on any topic (and in any 
language!) and the ZX81 then poses the questions to a student in the 
form of an interactive quiz. There are two notable points about this 
program: firstly a standard question format is entered by the teacher 


e.g. WHAT IS THE FORMULA FOR 
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or TRANSLATE INTO SWAHILI 
or WHAT IS THE CAPITAL OF 


and then pairs of question and answer keywords make up the remainder; 
secondly, a student’s answer is marked correct providing it contains the 
answer keyword 


e.g. if the answer keyword is OPTIC 


then all the following responses are correct 


OPTICAL ISOMERISM 


OPTIC 


OPTICALLY 


CHANGES OPTICALLY 
OPTICALLISH 


Naturally enough, this isa 16K program. 


Method 


TEACHER: 


STUDENT: 


(i) 
(ii) 


(iii) 
(iv) 


(v) 


(i) 
(ii) 


Enter number of questions O 

Enter maximum length L1 of question word 
and L2 of answer word. 

Enter form of question F$ 

For counter | from 1 to Q 

(a) Enter question word number | into Q$(I) 
(b) Enter answer word number | into A$(1) 
(c) Store length of A$(I) in A(1) 

Stop 


Set score S to @ 
For counter | from 1 to OQ 
(a) Display question F$ and question word 
OQ$(1) 
(b) Enter student’s response X$ 
(c) If X$ contains answer word A$(1I) 
1) Display CORRECT 
2) Add 1to5 
3) Go to (e) below 
(d) Display WRONG & answer word A$(1) 
(e) Repeat 
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(iii) Display score S 


Program Listing 


120 
122 
124 
126 
130 
140 
150 
160 
165 
170 
180 
182 
185 
190 
200 
210 
220 
230 
231 
232 
233 
234 
240 
270 
280 
290 
300 


PRINT ‘“‘NO.bOFbQUESTIONS” 
INPUT OQ 

IF 0<5 OR Q>5@ THEN GO TO 20 
PRINT Q 

PRINT “MAX.bLENGTHbOFbOQbWORD="; 
INPUT L1 

IF L1<1 OR L1>30 THEN GO TO 60 
PRINT L1 

PRINT TAB 15;’"AbWORD="; 
INPUT L2 

IF L2<1 OR L2>30 THEN GO TO 100 
PRINT L2 

DIM Q$(Q,L1) 

DIM A$(Q,L2) 

DIM A(Q) 

PRINT ‘““QUESTIONbFORMAT=" 
INPUT F$ 

IF Fg=""" THEN GO TO 140 

PRINT F$% 

PAUSE 250 

CLS 

FOR I=1TOQ 

SCROLL 

SCROLL 

PRINT AT 18,0;"0";1;"="; 

INPUT Q$(1) 

PRINT QO$(1) 

PRINT “A ;1;°="; 

INPUT A$(I) 

FOR J=L2 TO 1 STEP —1 

IF A$(1,J)<>“b” THEN GO TO 234 
NEXT J 

LET A(I)=J 

PRINT A$(1) 

NEXT | 

PRINT “ENDbOFbINPUT”’ 

STOP 

LET S=0 
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319 FOR l=1 TO Q 

320 CLS 

330 PRINT 1;“)b’;F$ 

349 PRINT Q$(I) 

359 INPUT X$ 

355 PRINT X$ 

360 IF LEN X$<A(I) THEN GO TO 490 
370 FOR J=1 TO LEN X$—A(I)+1 

380 IF X$(J TO J+A(I) —1)=A$(1,1 TO A(I)) THEN GO TO 420 
399 NEXT J 

409 PRINT “NOb—bANSWERDbISb”;A$(1) 
419 GO TO 449 

420 PRINT “CORRECT” (inverse) 

430 LET S=S+1 

449 PAUSE 500 

450 NEXT | 

469 CLS 

470 PRINT “SCORE:b”;S;“bOUTbOFb” ;O 


List of Variables 


Q = number of questions 
L1 = maximum length of question words 
L2 = maximum length of answer words 
Q¢$ = questions 
A$ = answers 
A =. array holding actual lengths of answer words 
F$ = question format 
X$ = student’s answer 
S = score 
>omments 


The teacher sets up a bank of questions and answers having started the 
yrogram by RUN. The student uses the program by GO TO 309, and 
2ach of the questions appear in turn. Providing the student’s response 
‘0 a question contains the answer keyword, it is marked correct. A 
icore appears at the end. 


Exercise 3(i): What is the purpose of line 369 and what would 
happen if it was omitted? 
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CHAPTER FOUR — THE MONITOR 


4.1 EXAMINING AND USING THE MONITOR 


Introduction 


This chapter aims to introduce readers to the way in which the 8K ROM 
Monitor is organised, how it may be examined and how it may be used. 
Much of the chapter is taken up by a listing of the contents of the ROM 
in terms of tables of data and assembly language instructions. In order 
to understand in any detail the workings of the Monitor a knowledge of 
Z80 low level language is required, but readers without this knowledge 
will find that parts of the chapter illustrating data tables in the monitor 
or describing start addresses of Monitor routines will be useful. A good 
book for learning about the Z80 is Rodnay Zacs’ “Programming the 
Z80"’. Readers should see Chapters 24 - 27 of the Sinclair Manual for 
further background information. 


Hexadecimal 


As described in Chapter 24 of the Sinclair Manual, binary and hexadecim 
numbering is generally used when discussing the contents of ZX81 

memory locations. Consider a location containing the decimal number 

28. In binary this is 


0001119090 
20 QP 28-2" 2 22 2129 


since 24 + 23 + 22 = 16+8+4= 28 
In hexadecimal we have 
1C hex = 28 decimal 


But taking each hex digit as four binary digits 
1 Cc 


ee aan —~ 
0001 1100 


thus showing how hexadecimal is a useful “shorthand” for binary. 
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In this chapter we will be using both decimal and hexadecimal numbers 
to represent memory addresses and contents. Therefore a useful start is 
a program to convert decimal numbers to hexadecimal. 


The program uses an algorithm based upon a manual method of conver- 
sion. Consider for example 7654 decimal. If we successively divide this 
by 16 and take the remainders we have 


16 \ 7654 


16 


16\29 remainder 14 


16} 1 remainder 13 = D hex 
0 remainder 1 = 1 hex ai) | 






478 remainder 6 = 6 hex 


Thus 7654 decimal = 1 D E 6 - hex 


Here is the program: 


5 
10 
20 
25 
30 
40 
50 
60 
70 
80 

500 
510 
520 
530 
540 
550 
560 


DIM H$(4) 

PRINT “NUMBER="; 

INPUT C 

1F C=@ THEN STOP 

GO SUB 500 

PRINT C;“bbHEX="; 

IF C>255 THEN PRINT H$(1);H$(2); 
PRINT H$(3);H$(4) 

PRINT 

GO TO 10 

LET D1=C 

FOR Il=4 TO 1 STEP —1 

LET D2=INT(D1/16) 

LET H$(I)=CHR$(D1—16*D2+28) 
LET D1=D2 

NEXT | 

RETURN 


The subroutine at line 500 does the conversion to hexadecimal while the 
first part of the program enters a number and then prints a hexadecimal 
number of an appropriate size. 


Conversion from hexadecimal to decimal is simpler. 
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19 PRINT “HEXbNUMBER="; 

20 INPUT H$ 

30 IF H$=""’THEN STOP 

49 LET D=CODE H$(1)—28 

5@ FOR l=2 TO LEN H$ 

60 LET D=16*D + CODE H$(I)—28 
70 NEXT | 

80 PRINT H$;"b,DECIMAL=";D 
90 PRINT 

199 GO TO 10 


Monitor Routines and Entry Points 


The disassembled listing of the 8K monitor given in Section 4.2 gives 
readers a chance to work out for themselves just how the ZX81 works. 
To make the task a little bit simpler the following points will be helpful. 
Addresses given below are in hexadecimal. 


(i) The program starts are location @99@ as in any Z80 system. 

(ii) RST 008 is the ‘error report handling’ entry point. 

It is entered by using the instruction ‘CF — RST 0008’ 
followed by a data byte for the required error., e.g. see 
@2F4 RST 0008 

@2F5 ‘QE’ 

which gives error ‘F’. 

(iii) RST 001@ is the character printing routine. The normal way 
to print a character to the next position on the screen is to 
load the A register with the appropriate character code 
(including NEWLINE) and then call this routine by using the 
instruction ‘D7 — RST 00190.’ 

(iv) RST @@18 and RST 0020 are routines for collecting the next 
character in a BASIC line. 

(v) RST 0028 is the entry point for the ‘floating-point calculator’, 
which starts at location 199C. (See note xxxvii). 

(vi) RST 0030 is a routine that will make ‘BC’ spaces in the 
variable area. 

(vii) RST 0038 is the interrupt routine that handles the lines of 
the T.V. display. 

(viii) The routine at 0966 is the NMI routine that leads to a T.V. 
display being formed following a NM interrupt in ‘slow’ 
mode. 

(ix) The main ‘key table’ is at Q97E to QOCB. There is a code for 
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each key in ‘lower’case and in ‘shift’. 

(x) | The key-codes for the ‘function mode’ are in the table from 
OOCC to OOF2. 

(xi) The key-codes for the ‘graphics mode’ are in the table from 
QOF3 to 0110. 

(xii) The command table is at 9111 to 91FB. Each keyword is 
listed with its last letter inverted. 

(xiii) The ‘update routine’ at 91FC to 0206 is used by the LOAD 
and SAVE command routines. 

(xiv) The routines from 0207 to @2BA are used to produce the 
T.V. display. 

(xv) The keyboard scanning routine at @2BB to 02E6 is a very 
useful routine. Each key of the keyboard gives a unique 
key-value in the HL register pair. No key pressed gives 
the value FFFF. 

(xvi) The SAVE command routine is at @2F6 to 033F. 

(xvii) The LOAD command routine is at 0349 to 03A7. 

(xviii) The routine at @3CB to 03E4 is the RAM integrity check 
routine that is carried out upon initialisation and 
following a NEW command. 

(xix) The main initialisation routine starts at @3E5, and is 
followed by the operating system routines for handling the 
‘cursor’ and forming LISTings. 

(xx) The main command routine for the running of a BASIC 
program is from @63E to @6DF. 

(xxi) The keyboard decode routine at 97B4 to 07DB is also very 
useful as it converts the key-values (in BC now) to the values 
1—78 and forms the appropriate address, in HL, for a 
given key in the main key table. (see note ix). 

(xxii) The routine at @7F 1 to @868 is the character printing 
routine used by RST 0010. (see note iii.) 

(xxiii) The routine at @8F5 to 094A is concerned with expanding 
the display file, in the case of a ‘collapsed’ display file. 
The routine in effect sets the system variable ‘DF—CC’ to 
a legitimate address. 

(xxiv) The CLS command routine is at 9A2A to @A5SF. 

(xxv) The PRINT command routine is at @ACF to @BAE. 

(xxvi) The PLOT/UNPLOT command routine is at @BAF to 
@C@D. The difference between the commands being 
dependant on the current value of T-ADDR. 

(xxvii) The SCROLL command routine is at @C@E to 0C28. 

(xxciii) The main syntax tables are at @C29 to @CBY. The first 
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part being a pointer table and the second part the actual 
syntax table that gives the required syntax for each 
command and the address of the ‘command routine’. 

(xxix) The BASIC interpreter starts at @CBA. 

(xxx) The FAST command routine is at @F20 to @F27 and can 
be simply called using ‘CALL @F2@’ to enter FAST mode, 
or ensure the presence in FAST mode. 

(xxxi) The SLOW command routine is at @F28 to @F2E and can 
likewise be called by ‘CALL @F28’. 

(xxxii) The ‘Expression Evaluator’ starts at location @F52. 

(xxxiii) The LET command routine is at 131D to 1404. 

(xxxiv) The DIM command routine is at 1405 to 1483. 

(xxxv) The routines between 14CA and 1913 are concerned with 
handling ‘floating-point’ numbers. e.g. the routine 
‘Evaluate to integer’ is at 1586. Print ‘Last value’ is at 
15D7, etc. 

(xxxvi) The function table for the ‘floating-point calculator’ is at 
1914 to 199B. 

(xxxvii) The ‘floating-point calculator’ is at 199C to 1AA8. 

(xxxviii) The various function routines are at 1AA9 to 1DFF. 

e.g. CHR$ is at 1B8E to 1BA2, COS is at 1D3D to 1D47, 
etc. 

(xxxix) The ‘character generator’ is at 1EQ@@ to 1FFF. This part 
of the 8K ROM holds the 8*8 formats of the 64 characters 
that can appear on the T.V. display. 


Program Aids 


A number of BASIC programs can be written to assist in the examination 
of the Monitor, and particularly the data tables. 


HEX DISPLAY 


This program displays the contents of Monitor addresses in hexadecimal 
starting at a specified address: 


5 DIM H$(4) 
19 PRINT “START="; 
20 INPUTS 
25 PRINTS 
30 FOR A=S TO 8191 STEP 8 
35 SCROLL 


100 


49 LET C=A 

50 GO SUB 500 

60 PRINT AT 5,0;H$;‘bbb’’; 
7@ FOR B=A TO At+7 

80 LET C=PEEK(B) 

99 GO SUB 500 

100 PRINT H$(3 TO 4);"“b”; 
110 NEXT B 

120 PRINT 

130 NEXT A 

140 STOP 
500 LET D1=C 
519 FOR 1=4TO 1 STEP —1 
520 LET D2=INT(D1/16) 
530 LET H$(I)=CHR$(D1—16*D2+28) 
549 LET D1=D2 

550 NEXT | 

569 RETURN 


This works in 1K — for a 16K system change the PRINT AT statement 
at line 6@ to give a larger screen display. 


CHARACTER DISPLAY 


This program displays the contents of Monitor addresses as characters — 
useful for some data tables. 


10 PRINT “START="; 

20 INPUT S 

25 PRINTS 

30 FOR A=S TO 8191 

40 SCROLL 

5@ PRINT AT 15,0;A;"bbb” ;CHR$ (PEEK A) 
69 NEXTA 


The program is very handy for displaying the Key Table (locations 126 
to 272 ) and the following Command Table (locations 273 to 507). As 
described in the previous section the Key Table holds codes for the key- 
board keys in ‘lower’ case, in shifted form, in function mode and finally 
in graphics mode. RUN the program with start address equalling 126 
and the appropriate keyboard values will be shown. In the Command 
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Table we find each keyword with the last letter held in inverse form. To 
show this, run the program with a start address of 273, or simply let it 
run on after the Key Table. 


CHARACTER GENERATOR DISPLAY 


The last data table in the Monitor is the character generator held in 
locations 7680 to 8191. This holds the formats for each of the 64 
characters used on the ZX81 by means of eight bytes per character, each 
byte consisting of @’s and 1’s representing unshaded and shaded portions 
respectively. 


For example the letter R has character code 55. The portion of the 
character table holding the format for R is locations 812@ to 8127. 


ie 7680 +(55 x 8) to 7680 + (55 x 8) +7 
The binary patterns in these locations are shown below 


Location Contents 


8120 
8121 
8122 
8123 
8124 
8125 
8126 
8127 


Sseoe coos do 
Boa a2 2 2 a = CO 
Sseoeo-coo-80 
Seoo-oo0o-0 
Seoo-oo0o-+oa0 
Sseqr200-090 
Se-=-2002-=0900 
Qasesoesesesoscsd 


This represents 
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A routine to use the character table to display large characters has 
already been utilised in Chapter Three, and is shown again below: 


To display characters at four times size we use the PLOT statement. 


19 PRINT “CHARACTER="; 
20 INPUT A$ 

25 LET C=CODE A$ 

30 PRINT A$;“bCODE=";C;"ATbLOCb‘’;7680+C*8 
49 FOR H=@TO7 

5@ LET P=PEEK(7680+C*8+H) 
60 LET V=128 

7@ FOR G=9TO7 

80 IF P<V THEN GO TO 110 
99 PLOT G,49—H 
100 LET P=P—V 
110 LET V=V/2 
120 NEXT G 
130 NEXT H 


For eight times size we use the PRINT AT statement and this can help 
illustrate the unshaded portions. We display the shaded portions using 
“MB” and the unshaded by ‘B&’’. Modify the above by 


80 IF P<V THEN GO TO 108 
99 PRINT AT H+3, G;'” 
194 GO TO 110 
198 PRINT AT H+3,G;"B3” 


and the character will appear black on a grey background. 


4.2 MONITOR LISTING 


The next eleven pages contain a disassembled listing of the ZX81 8K 
ROM Monitor between addresses 009 and @CBQ, that is, up to the end 
of the syntax table. The rest of the Monitor has not been included 
since much of it consists of the BASIC interpreter which is not 
particularly interesting or usable. 


A description of Monitor routines and tables appears in Section 4.1 
and the listing should be studied in conjunction with this. 
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0000 
0002 
0005 
0008 
0008 
000E 
0010 
oon! 
0014 
0017 
0018 
0018 
001C 
0010 
OO1E 
OO1F 
0020 
0023 
0025 
0026 
0027 
0028 
0028 
002C 
0020 
002E 
002F 
0030 
0031 
0034 
0035 
0038 
0039 
003C 
0030 
OO3E 
O0%F 
0041 
0043 
0044 
0045 
0046 
0047 
0049 
004C 
0040 
0050 
0051 
0053 
0054 
0056 
0057 
0058 
00SB 
OOSF 
0062 
0065 
0066 


03 
ot 
c3 
2a 
22 
18 
a7 
c2 
c3 
FF 
2a 
7E 
a7 
co 
00 
00 
co 
19 
FF 
FF 
FF 
c3 
FL 
09 
€3 
09 
cy 
cs 
2a 
—S 
cs 


ce 
el 
05 
ca 
ce 
ED 
FR 
€&9 
m1 
ca 
18 
2a 
23 
22 
7E 
FE 
co 
18 
€1 


Fo 
eo 
co 
c3 
FF 
08 


fo 
FF 
cB 
16 
18 
16 


Fl 
FS 


16 


49 
FZ 


9C 


84 
4S 


09 
“F 


Fe 
16 


75 
78 
07 
b8 


7F 
03 
40 
40 


07 
07 
40 


19 


40 
14 


40 


40 


00 
02 
02 
4 


OUT (FD),A 
LD BC, 7FFF 
JP O3CB 

Lm HL.(4016) 
UD (4018).HL 
JR 0056 

AND A 

JP NZ,O7F1 
JP OTFS 

RST 38 

LO HL. 4016) 
Lo ACM) 
AND A 

RET NZ 

NOP 

woP 

CALL 0049 
JR OO1C 

RST 38 

RST 38 

RST 38 

JP 199C 

FOP AF 

EXX 

EX (SP),HL 
EXX 

RET 

PUSH BC 

LD HL,( 4014) 
PUSH HL 


JP 1484 

EC C 
JP_NZ.0045 
POP HL 

DEC B 

RET Z 

SET 3,C 

LD R.A 

EI 

JP CHLD 

POP DE 

RET Z 

JR 0041 

LD HL.(4016) 
IWC HL 

LD (4016), HL 
LO A,CHL) 
cP 7F 

RET WZ 

JR 004C 

POP HL 

LO L,CHLD 
Lb C1Y),L 
LD SP,( 4002) 
CALL 0207 

JP 1488 

RST 38 

EX AF AF’ 


0047 
0068 
0068 
006D 
006E 
006F 
0070 
0071 
0072 
0073 
0074 
0077 
0079 
007A 
007c 
OO7E 
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3c 


FA 60 00 


28 


cy 
08 
FS 
cs 
05 
ES 
2a 
ce 
76 
03 


28 
ai 
00 
£0 


cA 
7e 
42 
04 
6R 
eB) 
26 
67 
37 
13 
3 
a 
28 
Bs 


34 
26 
34 
BE 


02 


oc 
FC 


FO 
9 


3B 
1c 
1B 


ce 
78 
07 
05 


al 
20 
38 
80 
4 
35 
34 
a4 
2c 
38 
30 


87 
37 


40 


26 38 
25 24 
32 33 
00 75 
79 14 
cc O01 
78 78 
41 08 
77 78 
oC 8B 
PA BS 
BB 26 
PC BS 


12 94 


BC 2B 
33 89 


b9 31 
AA 35 
AA 37 
28 31 


339 


29 
23 
27 
DA 
1S 
02 
ce 


85 
26 
38 
39 
76 
37 
13 
33 
26 
29 


en 
7 
26 
2A 


2B 
22 
OE 
DE 
16 
cz 
03 
07 
03 
ey 
2€ 
83 
27 
80 
92 
89 
38 
2E 
a7 
e9 
2€ 
33 
26 


THC A 


JP-M,006D 
JR 7, 006F 
EX AF AF’ 
RET 
EX AF LAF’ 
PUSH AF 
PUSH EC 
FUSH DE 
PUSH HL 
LD HL, 4000) 
SET 7.1 


HALT 


OUT (FD).A 
JP OCIX) 


2c 
35 
19 
OF 
08 
ca 
C4 
BA 
03 
39 
B3 
3 | 
&8 
33 
39 
31 
89 
b2 
2€ 
35 
33 
“y 
e7 


36 
34 
OF 
72 
oc 
cy 
06 
89 
8h 
26 
28 
B35 
35 
34 
20 
3 
33 
37 
33 
26 
89 
2E 
37 


33 30 2A 


3c 
2E 
18 
7 
1a 
CF 
0S 
al 
a1 
az 
34 
2A 
2a 
Bg 
2A 
2€ 
2a 
2a 
35 
3a 
35 
AB 
2A 
3E 


2a 
3A 
E3 
74 
12 
40 
78 
82 
90 
OF 
ba 
30 
en 
17 
83 
38 
BC 
B2 
3A 
38 
31 


37 
3€ 
El 
73 
13 
78 
04 
07 
80 
28 
39 
65 
BO 
97 
39 
ey 
38 
2B 
89 
AA 
34 


39 
76 
4 
70 
17 
78 
C4 
4 
86 
34 
26 
2E 
3A 
34 
B4 
38 
28 
34 
31 
33 
B9 


28 31 BB 
39 3A 37 
80 35 AE 


10 
31 
ES 
71 
co 
78 
cs 
06 
78 
29 
B3 
33 
38 
e7 
38 
39 
37 
87 
a4 


2a 


3A 
B3 


1E 
30 
E2 
OB 
CE 
78 
iy 
01 
92 
Aa 
26 
69 
87 
2 
a9 
a4 
34 
2c 
26 
30 
3A 
33 
28 


aF 
iF 
2F 
co 
iM 
C1 
78 
78 
02 
95 
3B 
38 
38 
38 
33 
rai) 
RS 
31 
34 
ay 
B9 
83 
35 
34 


30 
20 
20 
o9 
10 
78 
78 
78 
a7 
96 
26 
B3 
36 
39 
Ag 
Li 


e1 
39 
34 
35 


31 
35 


OMFC 
O1FD 
O1FE 
0201 
0202 
0204 
0205, 
0706 
0207 
020A 
0208 
020C 
0200 
020E 
020F 
ofl 
0212 
0214 
0216 
0218 
021A 
0218 
021C 
O21E 
0220 
o22t 
0222 
0223 
0224 
0226 
0228 
0229 
022C 
0220 
022F 
0230 
0231 
0232 
0234 
0235 
0237 
0230 
0239 
023A 
0230 
023E 
0241 
0245 
0248 
0249 
0248 
0240 
0250 
o251 
0252 
0253 
0255 
0258 
0254 
025C 
025€ 
0260 
026) 
0262 
0263 
0244 
0267 
0248 
026A 


23 
&B 
2a 
37 
€0 
Fe 


ia} 
ra | 
7E 
7 
AE 
17 


3E 
on 
06 
03 
10 
03 
08 
17 


cB 
FS 
cs 
0S 
€S 
18 
ce 
c? 
2n 


3E 
a 


7 
20 
v7 
18 
46 
37 
6? 
22 


co 
€0 
22 
78 
cé 
€o 
3A 
84 
6S 


06 
2. 
ce 
20 
cB 
cB 
ca 
05 


37 
ai 


ce 
10 


4 
s2 


3B 


7F 
3) 
FE 


FE 
FO 


03 


34 
7F 


03 


02 


27 


10 
FE 


40 


40 


40 


40 


02 
25 40 
40 


40 


40 


40 


INC HL 

EX DE,HL 

LD HL (4014) 
SCF 

SBC HL ,DE 
EX OEM 
RET MC 

FOP HL 

LO HL, 4038 
LO A,CHLD 
KLA 

XOR (HL) 
RLA 

RET NC 

LO A,7F 

EX AF,AF’ 
Lo B11 

OUT (FE),A 
DJNZ 0216 
OUT (FD),A 
EX AF AF‘ 
RLA 

JR WC, 0226 
SET 7,(HL) 
PUSH AF 
PUSH BC 
PUSH DE 
PUSH HL 

JR 0229 

RES 6,(HL) 
RET 

LO HL, (4034) 
DEC HL 

LO A,7F 

AND H 

OR L 

LO A,H 

JR NZ,0237 
RLA 

JR 0239 

Lo 6,(HLD 
SCF 

LO HA 

LD (4034),HL 
RET NC 

CALL 0268 
LD BC,( 4025) 
LD (4025), HL 


LO HL,4027 
ccF 

RLR 

DUMZ- 026A 


026C 
0260 
026E 
0270 
0271 
0273 
0274 
0275 
0276 
0277 
0279 
027C 
O27E 
0281 
0283 
0286 
0288 
0288 
028C 
028F 
0292 
0294 
0297 
0298 
0290 
029€ 
02A0 
o2n1 
02n2 
O2A4 
02A5 
0206 
O2A7 
02A8 
0209 
02AB 
O2AD 
0260 
0281 
0282 
0263 
0285 
0287 
0289 
026A 
0268 
02BE 
02C1 
02c3 
02c5 
02C7 
028 
02C9 
02CB 
o2cc 
02cD 
02CE 
O2CF 
0200 
0201 
0202 
0204 
0206 
0208 
0209 
0206 
920C 
0200 
020€ 
0206 
O?E1 


46 
78 
FE 
oF 
06 
BS 
Ao 
1F 
7 
03 
2A 
ce 
co 
€o 
o1 
3€ 
co 
26 
co 
c3 
0D 
Fo 
FO 
28 
179 
Eo 
3c 
08 
03 
ia) 
o1 
ct 
Fl 
co 
3€ 
06 
co 
28 
€3 
€3 
00 
Eo 
3E 
Fe 
&9 
21 
o1 
£0 
Fé 
F6 
s7 
oF 
FE 
oF 
BO 
As 
OF 
7c 
a2 
67 
Ch 
eo 
38 
F 
Cb 
17 
17 
17 
oF 
€6 
cé 


FE 
iF 


FF 
oc 
FC 
92 


01 
FS 
65 


92 
29 
—1 
4€ 
cB 


M4 


FE 


FC 
o1 
BS 


€&9 
4F 
00 


FF 
FE 
78 
o1 
€0 


01 


78 
En 


18 
iF 


40 
02 


19 


02 


02 


3B 7E 


02 


FF 
FE 


02E3--32-28-40 
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OUT (FF),A 
LO HWL,( 4000) 
SET 7,1 
CALL 0292 
LD AR 

LO BC,1901 
LO A,FS 
CALL 0265 
OEC HL 
CALL 0292 
JP 0229 
COP IX 

10 C,1¥#28) 
BIT 7,(1Y#3B) 
IR Z,02A9 
LO a,c 

WEG 

INC A 

EX AF AF’ 
OUT (FED,A 
POF HL 
POF DE 

FOF BC 

POP AF 

RET 

LO A,FC 

LO B,01 
CALL 0285 
OEC HL 

EX (SP),10 
EX (SP),HL 
JP CTX) 
LO R,A 

LO A,0D 

EI 

JP CHILD 

LD HL, FFFF 
LO BC,FEFE 
IW A,(C) 
OR O1 

OR £0 

LO 0,A 

CPL 

CF ot 

SBC ALA 


SEC A,A 
Ano 18 

AUD A, 1F 
LO (4028),A 


cy 
FO 
ce 
76 
03 
Fo 


CF 





CB 3B 7E 


Fo 
Ce 38 BE 


> 
nw 
CEs} 


Fa 
1E 03 
7E 


Fe 
09 40 
1E 03 
FC OL 
Fe 


05 
04 


23 


£0 
AB 03 
12 
0A 
AC 03 
Fe 
01 
00 
7F 
FE 
FF 


49 


mr 
—2 


FS 03 


4C 03 
7A 


RET 
BIT 7,(1¥#3B) 
RET Z 

HALT 

OUT (FO),A 
RES 7,(1¥#38) 
RET 

RST 8 

Lo c,co 
XOR B 

INC BC 
JRC, 02F4 
EX DE.HL 
LD 0E,12C8 
CALL OF 43 
JR NC, 0332 
DJHZ 0304 
DEC DE 

LO A.D 

OR E 

JR NZ, 02FF 
CALL O31€ 
BIT 7,(HL) 
INC HL 

JR 72,0308 
LO I, 4009 
CALL O31E 
CALL OFC 
JR 0316 
LO ECHL) 
Scr 

RL E 

RET Z 

SBC A,A 
AND 05 
ADD A,04 
uo C,A 

OUT (FF),A 
LO 8,23 
DJNZ 0320 
CALL OF 43 
JR NC, 0306 
UD B,1E 
OJHZ 0336 
EC C 

JR NZ,0329 
AND A 
OJNZ 0338 
JR 0320 
CALL O3A8 
RL O 

RRC OD 
CALL 034C 
JR 0347 
LO c,01 

LO B,00 
LO A,7F 

IN A,(FE) 
OUT (FF),A 
RRA 

UR NC,03A2 
RLA 

RLA 

UR C,0385 
DJNZ 0350 
Por AF 
cro 

JP NC, 0365 
LO H,0 

LO L,E 
CALL 034C 
BIT 7.0 


0366 
036C 
O36E 
O76F 
0371 
0372 
0373 
0375 
0278 
0378 
O37C 
O37F 
0380 
0283 
0385 
0386 
0388 
038A 
038B 
0280 
O38E 
0390 
0391 
0393 
0395 
0396 
0398 
O39A 
0390 
0390 
039F 
O3A1 
O3A2 
0203 
OFA4 
O3N6 
O3A7 
O3A8 
OZAB 
O3AE 
O3AF 
0382 
0383 
O3b4 
0285 
0388 
O38B 
O3eC 
0380 
O3EE 
O3RF 
030 
03C2 
03C3 
0306 
030A 
03CB 
O30C 
0300 
OsCcF 
0701 
o3n2 
O3N3, 
ONS 
O76 
0308 
Ozny 
030A 
03nC 
0300 
O30F 
0360 
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79 
20 03 
RE 
20 06 
23 
17 
30 Fi 
FO 34 
21 09 
50 
co 4c 
va 
co Fc 
18 Fé 


1E 94 
06 14 
10 
OB FE 
7 
CB 7B 
78 
38 FS 
10 FS 
01 
20 04 
FE 56 
30 B62 


cB il 
30 AN 
cy 
7A 
“7 


CF 
oc 
cd S2 
3A 01 
87 
FA 9A 
€l 


€s 
co £7 
co F4 
62 
68 


Fe 
09 
CB FE 
cy 
co £7 
FD 48 


60 
459 
SE 3F 
36 02 


ec 
20 FA 
a7 
£0 42 
09 
23 
30 06 
35 
28 03 
35 
28 F3 


15 
40 


03 
01 


OF 
40 


02 
13 


02 
04 40 


Lo a.c 

JR. WZ.0371 
cP CHL) 
JR NZ,0347 
INC HL 
RLA 

JR HC,0366 
INC (CIY#15) 
LO WL.4009 
Lo 0,8 
CALL O34C 
LO CHL),C 
CALL O1FC 
JR 0378 
PUSH OE 

LOD E,94 

LO B,1A 
DEC E 

IN A,(FE) 
RLA 

BIT 7,E 
LD A,E 

JR C,0388 
DJNZ 038A 
POF DE 

JR NZ,039C 
cr 56 

JR NC, O34E 
ccF 

RL 

JR NC.O34E 
RET 

LO A,0 

AND A 

JR 7, 0361 
RST B 

INC C 
CALL OFS2 
tn A,C4001) 
ADD A,A 

JP M,OD9A 
POP HL 

RET WC 
PUSH HL 
CALL 02E7 
CALL 13F4 
Lo 4,0 
LOL,E 

DEC C 

RET 

ADD HL, PC 
SET 7,(HL) 
RET 

CALL O2E7 
LO PC, (4004) 
DEC PC 

LO H.B 

LO L.C 

10 A.3F 

LO CHL ),02 
DEC HL 
cru 

JR NZ .O3CF 
AND A 

SEC HL.eC 
Ant Ht EC 
INC Ht 

JR MC .O3E2 
EC (HL) 
JR Z, 0362 
DEC (HL) 
JR 72,0305 


O3E2 
O3E5 
O3E8 
OES 
O3EB 
O3EC 
03E0 
O3EE 
OZEF 
O3F2 
O3F4 
O3F6 
OzF8 
OFFC 
0400 
0403 
0406 
0408 
0400 
040B 
0400 
0410 
0413 
O4N6 
O4N9 
O41 
Our 
0423 
0424 
0426 
0427 
0429 
042A 
0420 
0430 
0432 
0433 
0436 
0439 
0438 
O43E 
O4AL 
0444 
O44 
OAT 
O44A 
O44C 
0440 
OAAE 
ONAF 
O45 
012 
0454 
0457 
0458 
OAS9 
O45A 
0458 
O4SC 
0450 
0460 
04463 
0464 
0468 
045A 
0468 
0460 
0460 
O46F 
0472 
0475 
0476 


22 
2A 
2B 
36 
2B 
F9 
2e 
2B 
22 
3E 
fay 
ep 
Fo 
Fo 
21 
22 
06 
36 
23 
10 
22 
cn 
co 
co 
co 
2h 
Eo 
a7 
eo 
Ee 
30 
19 
22 
co 
28 
ee 
co 
Fo 
20 
2A 
co 
2A 
37 
Eo 
at 
30 
EB 
7E 
23 
eo 
v2 
18 
al 
SE 
a 
56 
ES 
EB 
23 
co 
co 
el 
fo 
20 
72 
ee 
73 
18 
co 
2a 
7E 
FE 


04 
04 


3E 


02 
1E 
47 
56 
ai 
36 
70 
oc 
19 
ri) 


FB 
10 
96 
ay 
07 
2a 
OA 
5B 


52 
04 


23 
oe 
01 


3E 
35 
37 
0A 
08 
16 


52 


23 
OR 


Ao 
cs 


oe 
eB 


ce 
08 


AA 
ay 
4 


7E 


40 
40 


00 40 
3B 40 
40 
40 


40 
14 
14 
02 
0A 
40 
23 40 


40 
09 


07 
1€ 
40 


09 
40 


40 


40 


ov 
05 


20) 6E 


14 
40 


LO (4004), HL 
LO HL, (4004) 
DEC HL 

LD (HL), 3E 
DEC HL 

LO SP,HL 
DEC HL 

DEC HL 

LO (4002 ),HL 
LO A,1E 

Lo 1, 

IM 

LO 1Y,4000 
LO (17438), 40 
LO HL,4070 
LD (4000), HL 
Lo 8,19 

LD (HL),76 
INC HL 

DJNZ 0408 
LD (4010).HL 
CALL 1496 
CALL 1409 
CALL 0207 
CALL OA2A 

LD HL,( 4000) 
LO DE,( 4023) 


CALL 073E 
DEC (1Y+1E) 
JR NZ, 0472 
LO HL,( 400A) 
CALL 0908 
LD HL,(4016) 
SCF 

SBC HL,DE 
LO HL, 4023 
JR NC, 0457 
EX DE,HL 

LO ALCL) 
INC HL 

tor 

LOD (DE). 

JR ON 

LO HL. 400A 
to ECHL) 
INC HL 

LO 0,CHL) 
PUSH HL 

EX DE, ML 

INC HL 

CALL 0908 
CALL O5SBB 
POP HL 

BIT 5,(1¥#+20) 
JR NZ.0472 
LO (HL), 
DEC He 

LO (HLD,E 

UR 0419 
CALL 1409 
LO WL,C4014) 
LO A,CHLY 
cP 7E 


0478 
O47A 
o470 
0400 
0482 
0484 
0485 
0487 
048A 
o¢en 
0490 
0494 
0497 
O49B 
0490 
04A0 
04A2 
O4A4 
0405S 
04a8 
O4A9 
O4AB 
O4AE 
O4AF 
0480 
O4B1 
O4B2 
O4B3 
O4BS 
0486 
0487 
O4BA 
048C 
O4BF 
O4C) 
0404 
O47 
O4CA 
04sec 
O4Cr 
oAnd 
OADS 
0407 
040A 
0400 
O4DF 
O4E2 
O4E3 
O4E6 
O4E8 
O4EB 
O4EC 
O4E0 
O4EF 
O4FL 
O4F2 
O4FS; 
O4F7 
O4FB 
O4FA 
O“rc 
O4FE 
0500 
0502 
0505 
0506 
0508 
0509 
oson 
O50F 
0512 
0513 
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20 08 
01 06 
cD 60 


18 F3 


FE 76 
23 

20 EE 
cD 37 
CO 1F 
en 14 
FO 36 
CO 66 
FO CB 
20 24 
3A 22 
FE 18 
30 1n 
3c 

32 22 
47 

OE 01 
co 18 
54 

5D 

7E 

2B 

bE 

20 FC 
23 

&B 

3A 05 
FE 40 
OC 50 
18 C9 
21 00 
22 18 
21 38 
CB 7E 
CC 29 
CB 46 
28 FC 
EO 48 
CO 48 
co ep 
30 93 
3A 06 
30 

FA 08 
20 OF 
32 06 
10 

78 

06 27 
38 01 
SF 

21 cc 
18 OF 
7E 

FE 76 
28 OF 
FE 40 
Ce FF 
B19 
a1 c7 
19 

18 on 
7E 

ro cB 
20 07 
6 CO 
rE €6 
30-02 


00 
OA 


0S 
40 


00 FF 
07 


40 


40 


09 


40 
OA 
00 
40 
40 
02 
25 40 
OF 
07 
40 


0S 


00 


00 


O1 56 


JR NZ, 0402 
LO 60,0006 
CALL 0ASO 
JR 0475 

CP 76 

INC HL 

JR _NZ.0475 
CALL 0537 
CALL OAIF 
LO HL,C4014) 
LO C1Y),FF 
CALL 0766 
BIT 7,(1¥) 
UR HZ,04C1 
LO A,( 4022) 
cP 18 

JR NC,O4C) 
INC A 

LO (4022),8 
LD B,A 

LD C,01 
CALL 0918 
LO 0,H 

LO E,L 

LO A,CHL) 
DEC HL 

cP CHL) 

JR NZ,04B1 
INC HL 

EX DE, HL 
LO A,( 4005) 
cP 4D 

CALL C,OASD 
JR 048A 

LO HL,0000 
LO (4018 ).HL 
LD HL, 4038 
BIT 7,(ML) 
CALL 2.0229 
BIT 0,( HED 
UR 7, 04CF 
LO BC,( 4025) 
CALL OF 48 
CALL. 0760 
UR NC ,0472 
LO A,( 4006) 
DEC A 

JP 0508 
JR NZ, 04F7 
LD (4006),A 
DEC E 

UO A,E 

Sue 27 

JR C,O4F2 
LD E,A 

LO HL,oocc 
JR 0505 

Lo A,cL) 
cr 76 

UR 20528 
cr 40 

SET 7. 

JR C.O518 
LO I ,00r7 
ADO NLU 
UR O51S 

LO ACL) 
BIT 2.C1Y#01) 
UR HZ.0516 
ann ACO 

CP E6 

JR NG,O516 


vow 
0516 
0598 
0518 
o51C 
OS1F 
0520 
0523 
0576 
0529 
052A 
0528 
0520 
OS2E 
0531 
0532 
0533 
0534 
0525 
0536 
0537 
0520 
OS3E 
0540 
O544 
0545, 
O547 
0548 
0849 
O54C 
OS4E 
0550 
0552 
0554 
0556 
OSSA 
OSSC 
OS5F 
0562 
0943 
0564 
0565 
0566 
0567 
0568 
0569 
056A 
0568 
OS6C 
OS6F 
O57) 

0572 
0573 
O574 

0575 
0576 
OS79 
OSTA 
os7c 
0570 
OS7F 
O5A0 
OSB 
0583 
iin} 
0587 

0588 
0589 
0596 
OSAE 
0591 

0593 


ot 

FE FO 
EA 20 05 
SF 

CO 37 05 
7B 

CO 26 05 
C3 72 04 
CO 9B 09 
12 

cy 

3E 78 
SF 

21 62 04 
19 

19 

4E 

23 

46 

cs 

2h 14 40 
FD CB 20 
20 16 
FO CB OL 
TE 

FE WF 

ca 

23 

CD 64 07 
28 F6 
FE 26 

38 F2 

FE OE 

28 EA 

FO CB O1 
18 £8 

01 01 00 
C3 60 0A 
oF 
05 
54 
04 
76 
05 
7F 
05 
AF 
0S 
C4 
06 
0S 
AF 
0S 
Ar 
05 
CO 93 05 
7E 

36 TF 

23 

18 09 

23 

7E 

FE 76 

26 18 

36 7F 

28 

7 

18 98 
CO 93 05 
CO SC 0S 
18 F6 


2B 


BS 


96 


LO A,CNL) 
cP FO 

JP PE,0520 
LOE,A 
CALL 0537 
LD A,E 
CALL 0526 
JP 0472 
CALL 0998 
LD (DE),A 
RET 

LO 4,78 
LO E,A 

LO HL,o4B2 
ADD HL ,DE 
ADD HL,DE 
LO C,(HLD 
INC HL 

LD 8, (HL) 
PUSH BC 
LD WL,( 4014) 
BIT 5,(1¥#20) 
JR WZ, 0556 
RES 2,(1Y#01) 
LO A,(IL) 
cP 7F 

RET Z 

THC HL 
CALL 0784 
JR 72,0544 
CP 26 

JR C,0544 
CP OE 

JR 72,0540 
SET 2,¢ 1¥+01) 
JR 0544 

LO BC,0001 
JP 0A6O 
SBC A,A 
EC B 

LO 0,H 

IWC B 
HALT 

EC B 

LD A,A 

DEC B 

XOR A 

DEC 8 
CALL NZ,0COS 
LO 6,88 
DEC B 

XOR A 

EC B 

XOR A 

DEC B 
CALL 0593 
LD A,CHLD 
10 (WL), 7F 
INC HL 

JR 0588 
IWC HL 

LO a,c) 
cP 76 

JR 72,0590 
LO (HL), 7F 
DEC HL 

LD (HLD,A 
JR 0523 
CALL 0593 
CALL O55C 
JR 0589 
OFC Ht 


0594 
0598 
0599 
0596 
OS9c 
0590 
OS9F 
O5A2 
0SAS 
O5A6 
OSA 
O5aC 
OSAr 
0560 
O5B2 


0507 
0SE8 
OSEB 


05Sco 
OSC! 
05c2 
0S5c3 
0SC4 
0SC7 
OSCA 
OSCB 
OSCF 
0SD0 


0506 


O50C 
OStF 
OSE2 
OSES 
OSES 
OSE7 
O5EB 
OSE9 
OSEC 
OsEn 
OSEE 
OSEF 
OSFO 
O5F1 
O5F5S, 
OSF7 
OsFe 
OSF9 
OSFA 
OSFD 
OSE 
OSFF 
0601 
0602 
0603 
0605 
0606 
0407 
060A 
060€ 
O60F 
0612 
0616 
0618 
0616 
061C 
O61F 
0620 
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€0 
1A 
FE 
co 
o1 
18 
2A 
co 
€B 
co 
2 
c3 
7B 
£6 
32 
18 
ee 
ul 
7E 
£6 
20 
56 
23 


cy 
co 
21 
€s 
Fo 
co 
2a 
22 
2 
22 
2a 
cb 
co 
7A 
B3 
ca 


co 
23 
4€ 
23 
46 
23 
€0 
3€ 
12 
13 
€S 
2 
19 
09 
Eo 
€1 


tag 
€B 
01 
co 
18 
co 


° 


FO 
20 
2A 
7E 
FE 
28 


co. 


5B 
1F 


c2 


co 
F7 


1F 
6F 


14 


2 
39 
OA 


EB 


AS 


7 
iF 
v2 
ce 
3 
14 


FF 
06 
€2 


14 


40 


40 
04 


04 


04 


40 
40 
18 
40 
40 
09 
0S 


OA 


00 


08 


40 


40 


Lb ve, C4014) 
LO A,( DE) 
cP 7F 

RET WZ 

POP OE 

JR 0589 

LD HL,( 400A) 
CALL 0908 
EX DE,HL 
CALL OSBB 
LO HL, 4006 
JP 0464 

LO AE 

AND 07 

LO (4006), 
JR O59 

EX DEL 

LO DE ,04c2 
LO A,CIL) 
AND CO 

JR NZ, 0567 
LO B,C HL) 
THC HL 

LO E,(HL) 
RET 

CALL OAIF 

LO NL, 046F 
PUSH HL 

BIT 5,(1¥#20) 
RET WZ 

LD HL,( 4014) 
LD (400€ >, HL 
LO HL, 1621 
LO (4039), HL 
LOD HL,( 4000) 
CALL 0908 
CALL OSEB 
LO 4,0 

OR E 

RET Z 

DEC HL 

CALL OAAS 
THC HL 


BIT 5.(1¥#20) 
JR NZ 0629 
LD Hl ,¢4014) 
LO A,CML) 

CP FF 

JR 17,0626 
CALL ORF? 


a7 
SC 
73 
15 


£0 


43 
36 
5B 
13 
76 
12 
4B 
18 
5B 
36 


7 
13 
36 


2 


40 
C1 
ce 
co 
77 
oF 
cB 
cB 


22 


29 
1c 


53 


on 
04 


oc 


05 
0S 
OA 


06 


07 40 
22 02 
oc 40 


30 40 
09 

29 40 
22 02 


04 
01 80 


40 


00 
oc 
01 BE 


1 
4 
20 AE 
00 7E 


07 40 


OF 


40 


38 7E 
on 
0) 
09 
40 
07 40 


CALL Of2A 
LO HL,0419 
PUSH HL 

CALL OfPA 
POP HL 

CALL 0537 
CALL O55C 
CALL OATS 
JR NZ, 064 
LD A,B 

OR C 

JP NZ, 06E0 
DEC eC 

DEC EC 

LO (4007 ),8C 
LO (1422 ),02 
LO DE,(400C) 
JR 0661 

CP 76 

JR 20664 
LD BC,( 4030) 
CALL 0918 
LD DE, (4029) 
LD (1¥#22),02 
RST 18 

CP 76 

JP 72,0413 
LO (1Y+01),80 
EX DE,HL 

LO (4029), HL 
EX DE,HL 
CALL 004n 
CALL OCC1 
RES 1,C1¥#01) 
LO A,CO 

LD C1Y#19 9,8 
CALL 149F 
RES 5,(1¥#20) 
BIT 7,(1Y) 
JR Z,06AE 

LO HL,(4029) 
HD CHIL) 

JR NZ,06NE 
LD D,CHLD 
INC HL 

Lo €,CHLd 

LO (4007 ),DE 
INC Ht 
LO-E,CHL) 
IWC HL 

LD BCL) 
IWC HL 

EX GEHL 
ADD HL,DE 
CALL OF 43 
JR C0660 

LD HL, 4000 
BIT 7,CHL) 
JR Z,06AE 
Ln (HL), OC 
BIT 7,(1Y438) 
CALL Z,0871 
LO BC,0N21 
CALL 0918 
LO A, 4000) 
LD ef, 4007) 
INC A 

JR 7, 0601 

CF 09 

JR NZ, O6CA 
THC @C 

LO (4028), eC 


O6CE 
0600 
06m 
06n4 
0606 
0607 
060A 
0600 
06E0 
O6E4 
06E7 
06E8 
06EB 
O6EC 
O6EF 
O6F 1 
o4r2 
C6F3 
O4F6 
O4rgo 
O6FA 
O6FD 
OFF 
0702 
0705 
0706 
0707 
0708 
0709 
070A 
070B 
070C 
0700 
O70E 
070F 
0710 
0713 
0716 
0717 
0718 
O719 
o71C 
0710 
O71F 
0722 
0723 
0724 
0725 
0726 
0727 
0728 
0729 
072A 
0778 
0728 
0750 
0733 
0734 
0736 
0737 
0738 
0738 
073E 
0740 
0743 
O745 
0749 
074C 
O74E 
0750 
0753 
0755 
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20 


co 
3E 
07 
co 
co 
c3 
eo 
2a 
EB 
21 
—S 
2a 
ED 
eS 
cs 
co 
co 
e1 
co 
20 
co 
ch 
c) 
7? 
30 
BO 
ce 
cs 
03 
03 
03 
03 
28 
co 
co 
Cc! 
cs 
13 
2a 
2B 
eo 
2h 
eB 
ci 
70 


71 


z 


72 
cy 
ro 
co 
78 
E6 
47 
69 
22 
co 
we 
co 
18 
ia 
co 
16 
28 
NM 
ce 
rn 


o1 


ce 
18 


98 
ay 
C1 
43 
16 


13 


1a 
52 


€7 
2a 


06 
F2 
60 


ce 
Av 


3F 


on 
08 
00 
4S 
Fe 
4B 
EA 
92 
05 


13 
7% 


0o7 


On 
4 
08 
OA 
40 
04 


40 


02 


09 


09 
OA 


09 
02 


40 


01 
0E 


40 
09 


07 


OA 


Jk NZ, 06t 
EC eC 

CALL O7EB 
LO A,18 

RST 10 

CALL Ona 
CALL 1409 
JF O4C1 

LM (400A), C 
LO HL,(4016) 
EX GEHL 

LO HL 0413 
FUSH HL 

LD HL.C401A) 
SPC HL, CE 
PUSH HL 
PUSH BC 

CALL O2E7 
CALL OA2A 
POP HL 

CALL. 0908 

UR -NZ,0705 
CALL O9F2 
CALL. 0A60 
POP BC 

Lb A,C 

DEC A 

OR B 

RET Z 

PUSH BC 

INC EC 

INC BC 

IWC BC 

INC BC 

DEC HL 

CALL O99E 
CALL 0207 
FOP BC 

PUSH BC 

IWC DE 

LO HL,( 4010) 
DEC HL 

LOOR 

LO HL,( 4000) 
EX DE, ML 
POP BC 

U0 (NL),B 
DEC HL 

Lo CHLD,C 
DEC HL 

LD (HL),E 
DEC HL 

to (WL). 
RET 

SET 9.¢1¥#01) 
CALL OEAT 
Ln A,B 

AND 3F 

LO HA 

Lo LC 

LO (4000), HL 
CALL 0908 
LO E.00 

CALL 0745 

JR 0740 

LD BC,( 4008) 
CALL O9EA 
Lo 0,92 

JR 72,0755 
LO DE,0000 
RL E 

LD CIY#1E)E 


O7s8 TE LO A,CHLD ors 21 du 00 tO 1M. ,0070 


0759 FE 40 cP 40 O708 SF LO E,A 

O7SB Ct POP BC o709 19 ADO HL, OE 
o75C 00 RET NC O70A 37 SCF 

o750 CS Push BC o7mB C9 RET 

O75E CO AS 0A CALL OAAS o70C 78 LO A,E 

0761 23 TNC HL 0700 Az AND A 

0762 TA LO 4,0 O7ME FB RET 4 

0763 U7 RST 10 O70F 18 10 JK O7F1 
0764 23 INC HL O7EL AF XOR A 

0765 23 THC Ht O7E2 09 AGD HL, EC 
0766 22 16 40 LD (4016), HL O7E3 3C INC A 

0769 TO CB OL C6 SET 0,(T¥#01) O7E4 3B FC JR C.O7E2 
0740 ED 4B 18 40 LO BC,( 4018) O7E6 ED 42 SBC HL,BC 
O771 2A 16 40 LO HL,( 4016) O7E8 30 DEC A 

0774 AT AND A O7E9 28 FI JR Z,070C 
o775 «ED 42 SBC HL,BC O7FB 1E IC tO E,1C 
0777 «20 03 JR WZ,077C O7EO 83 ADD A,E 
0779 «36 £8 LD A,E8 O7EE AT AND A 

o77B 07 RST 10 O7EF 28 04 JR Z,O7FS 
O77C 2h 16 40 LD HW,( 4016) O7F1 FO CB O1 86 RES 0,(1Y¥#01) 
O77F 7E LO A,(HL) O7FS DF EXX 

0780 23 INC HL O7F46 ES FUSH tH 

o781 CD B4 07 CALL 07B4 0777 FO CB Ot 4E BIT 1,C1Y#01) 
0784 22 16 40 LD (4016),HL O7FB 20 05 JK HZ, 0802 
0787 28 E4 JR 71,0760 O7FO CO 08 08 CALL 0808 
o709 FE 7F CP 7F 0800 18 03 JR O05 
0788 28 10 JR 72,0790 oHoe CD 51 08 CALL 0851 
o7nD FE 76 cP 76 onos Et FOP HL 

o7ar 78 50 Jk 7, OTEE 0806 D9 EXx 

0791 CB 77 BIT 6,A 0607 C9 RET 

0793 «2805 JR Z,079A 0808 57 (0 0,A 

0795 CD 4B 09 CALL O948 0809 ED 4B 39 40 LD BC (4039) 
0798 18 03 JR 0760 0800 79 LO A,C 

O790 OT RST 10 OBOE FE 21 CP 2t 

Q79B 1A DO JR 0760 0810 28 1A JR 7,082C 
079% 3A 06 40 LO A,(4006) 0812 3E 76 LO A,76 
O7N0 06 AB LD B,AB 0814 BA cP D 

O7TA2 AT AHO A 0815 28 30 JK 7,0847 
O7AZ 20 05 JR NZ, O7AA 0817 2A OE 40 LO HL,( 400E) 
O7A5 2A 01 40 LD A,( 4001) OB1A BE CP (CHL) 
0708 06 60 LO 8,60 0816 7A LO 4,0 

OTAA AF RRA OB1C 20 20 JR NZ, O83E 
O7AB OIF RRA OBIE OD OEC C 

O7AC £6 OL AND OL OBIF 20 19 JR NZ, 083A 
O7AE 80 ADD A,B 0621 23 INC HL 

O7AF CO FS 07 CALL O7FS 0822 22 OE 40 LD (400E ), HL 
o7R2 18 £9 JR O76D 0825 OF 21 0 C,21 
O7E4 FE 7E CP 7E 0827 05 GEC B 

O7B6 CO RET NZ 0828 ED 43 39 40 LO (4039),8C 
O7E7 23 INC Ht On2C 78 LO A,B 

O7EB 23 INC HL 0820 FD GE 22 CP (1y#22) 
O7E9 23 INC Ht 9830 28 03 IR 71,0835 
O7BA 23 INC On%2 AT AHG A 

OTR 2 INC HL 0823 20 DD JR NZ, 0812 
O7EC C9 RET 0625 2€ 04 LO 1,04 
0760 16 00 LO 0,00 On37 C3 58 00 JP 0058 
O7bF CB 28 SRA B OB3A CD 9B 09 CALL 0998 
O701 OF SBC A,A 0630 EB EX DE, HL 
O7C2 F6 26 OR 26 OBE 77 LO (iL ),A 
O7C4 PE 0S (01,05 OOSF 73 TNC HL 

0706 9S SUB L Of40 22 OE 40 LO (400E Dt 
o7c7 85 ADD A,t 0845 FN 35 39 DEC (1¥4#39) 
O7CR 37 SCF 0816 C9 RET 

OTe9 Ch 1? RRC OW47) OF 21 (oc,2i 

O7CE 38 FA WR C,07C7 0849 05 GEC 6 

o7c0 OC THC C 084A FO CE 01 C6 SET 0,(1¥#01) 
O7CF £0 RET ‘NZ OO4E C3 18 09 JP O918 
O7CF 48 LO C,B 0851 FE 76 CP 76 

0700 20 OEC L 0853 28 1C Jk Z,0871 
O70 «26 O1 tO 1,01 0855 4F 0 C,A 

0703 20 F2 JR NZ, O7C7 ONS6 3A 38 40 LO A,( 4038) 
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8S? 
oeSR 
oBso 
OOSE 
0860 
0863 
0864 
OR4S 
OR68 
onsg 
onse 
Onde 
OB6F 
on7) 

oOn73 
0076 
0879 
097A 
oa7R 
on7c 
0870 
O87F 

0880 
0883 
0885, 
O0ns 
0088 
0889 
ORBA 
oB8c 
oano 
0890 
0892 
0893 
0894 
0895, 
0897 
0898 
OR99 
009A 
onsD 
Op9c 
9asn 
ON9E 
OBSF 
onal 

OnAS 
ORAS 
ORAA 
OBA7 
onvAa 
OnAA 
OfAC 
oan 
OOAE 
onto 
OORL 
OBk2 
ooRs 
oBRs, 
OBS 
oore 
et? 
ORRA 
OnER 
onen 
OnRF 
Onno 
oac2 
ons 
Oncs: 
Ont7 


£6 
FE 
OF 
26 
cc 
71 
en, 
Fo 
cy 
16 
2a 
a 
18 
14 
2) 
co 
cs 
ES 
AF 
SF 
03 
e1 
co 
38 
1F 
03 
CF 


0B 
87 
FA 
30 
ES 
0s 
7A 
FE 
oF 
A3 
07 
A3 
57 
4E 
9? 
2% 
FE 
°8 
ES 
ce 
a7 
87 
26 
cB 
3 
oF 
ce 
oF 
ae 
4F 
06 
7A 
ce 
1F 
67 
or 
1 
30 
7c 
03 
10 
el 
18 
OB 


7F 


40 
"a 
75 


16 
oc 


05 
o1 


3 
7 


FB 


43 


FB 


Fe 


DE 
133 


02 


16 
a4 


27 


OF 
on) 


08 
o1 


FR 
Fe 


Fe 
FL 


0S 
FR 


08 


38 


40 


40 
02 


08 


IR 0876 
LD 0,01 

LO WL, 402C 
CALL O2E7 
PUSII BC 
PUSH HL 
XOR A 

LD E,A 
OUT (FB),A 
POP HL 
CALL OF 43 
JR C,088A 
RRA 

OUT (FB),A 
RST 8 

INC C 

IW A,(FB) 
ADD A,A 
JPM, 08DE 
JR NC, 0880 
PUSH HL 
PUSH DE 
Lo 4,0 

CF 02 

SPC AJA 
AND E 
RLCA 

AND E 

LO 0,4 

Lo C,CML) 
LO A,C 

TNC HL 

cP 76 

JR Z,08C7 
PUSH HL 
SLA A 

Ann A,A 
A00 A,A 
LO H,Or 
RLH 

ADD A,E 
LD LA 
RLC 

SEC A,A 
XOR (HL) 
LO C,A 

LD B,08 
LO 4,0 
RLC C 

RRA 

LO HA 

IM A,(FB) 
RRA 

JR WC. OBBA 
0 A,H 
OUT (FB),A 
DJHZ OBR 
POP HL 

UR OB9C 
IN A,(FR) 


ORC? 
OGCA 
once 
osro 
ONCE 
oOfDo 
onl 
osu? 
orn 
0806 
oan7 
onne 
OBDA 
oonc 
OBNE 
OBF.1 
OBE2 
OBES 
OBE7 
OBES 
OBEA 
OBEC 
OBEE 
OBEF 
OnF) 
onr4 
O8FS, 
OBF7 
onre 
OnFA 
oro 
09700 
0901 
0902 
0904 
0905, 
0908 
070A 
0708 
O90F 
091) 
ov1s 
ovi4 
O917 
ov18 
ovic 
Ov1F 
0920 
0922 
0923 
0924 
0926 
0927 
0928 
0929 
0928 
0970 
092E 
0950 
0931 
0934 
0935, 
0924 
0977 
oonn 
0929 
0930 
oan 
O9FE 
O93F 
0940 
0942 
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AF 


30 
7A 


03 
m 
1c 
cB 
28 
ci 
15 
20 
3E 
03 
co 


cy 


tm! 


cé 


32 


2B 


Fe 


FB 


Ao 
04 
FB 
o7 


7 


00 


FB 


FF 
38 


17 


me 


35 


40 


02 


07 


38 


43 


10 


22 


16 


FC 
FA 


oF 


02 
40 


22 
on 


39 
40 


40 


oy 


4€ 


40 


RRA 
JR NC, 0BC7 
LD 4,0 
RREA 

OUT (FE),A 
POF DE 

INC E 

BIT 3,6 

JR 70870 
POF EC 

EC O 

JR NZ, 087A 
LO A,04 
OUT (FB),A 
CALL 0207 
FOP EC 

LD HL,.405C 
LO CHL), 76 
LD B,20 
DEC HL 

LO CHL),00 
DUNZ 0BE9 
LO A,L 

SET 7,0 
LD (4038), 
RET 

LO A,17 
SUP B 

JR C0905 
CP (1Y#22) 
JP C,0835 
INC A 

LO B.A 

LO A,IF 
sue C 
JP-C,0EAD 
ADU A,02 
LDC,” 

RIT 1,(1¥#01) 
JR 72,0918 
LO A,50 
sue C 

LO (4038),4 
RET 

LO (4039),BC 
LD HL (4010) 
LD D,C 

LO A,22 
sue C 

LO C,A 

LO A,76 
INC B 

DEC ML 

CP (HL) 
JR -NZ,0927 
OJNZ 0927 
INC HL 
CFIR 

DEC ML 

LO (400E ).HL 
SCF 

RET PO 
ore 0 

RET Z 
PUSH BC 
CALL O99E 
FOF FC 

Lo e,c 

Lo 4,0 

LD L,E 

LO CHL ),00 
DEC HL 


0945 
0945 
0946 
0947 
094A 
O94B 
O94C 
O94F 
095) 
0955, 
0957 
o9sA 
0959 
O95A 
o9se 
09750 
O9SE 
oosr 
0960 
0942 
9963 
0945 
0566 
0948 
O96A 
O96C 
096n 
O96E 
0972 
0975 
0976 
0979 
0978 
0970 
O97F 
0981 
0993 
ova 
O98S, 
0907 
0988 
Ovon 
O9nc 
O9nE 
0990 
0992 
0993 
O994 
0995 
0996 
0997 
0998 
099A 
O99R 
O99E 
O99F 
OPA2 
O9AS 
O9AG 
O9AP 
OFAN 
OPAC 
O9An 
O9NE 
OP AF 
oorn2 
O9k4 
OFRS 
OFB6 
O9R7 
O9ER 
O9k? 


10 FB 
EB 
23 
22 OE 
cy 
FS 
co 75 
30 08 
FO CB 
20 02 


o7 
0A 
€6 3F 
o7 
OA 
03 
87 
70 FT 
es 
ce 78 
co 
FE 1A 
28 03 
FE 38 


AF 
FO CB 
C3 FS 
ES 
2i i 
Ce 7F 
28 02 
E6 3F 
FE 43 
30 10 
47 
04 
ce 7E 
23 
28 FB 


ce 77 
20 02 
FE 18 
3F 
44 
4D 
El 
00 
On 
Cé £4 
cy 
01 01 
ES 
co cs 
el 
CO AD 
20 IC 
ee 
£0 68 
co 
5 
€S 
21 0c 
3E 09 
SE 
23 
56 
€3 
a7 
ED S2 


40 


09 
O1 46 


01 C6 
07 


ol 


oy 
40 


40 


DJNZ 0940 
EX DE,HL 
THC HL 

LD (400E ), HL 
RET 

PUSIT AF 
CALL 0975 
JR NC, 0959 
BIT 0,(1Y#01) 
IR WZ,0959 
XOR A 

RST 10 

LD A,(BC) 
AHO 3F 
RST 10 

LD A,(BC) 
INC BC 
apn A.A 

JR WC, 0959 
POP BC 

BIT 7,8 
RET Z 

CP 1A 

JR Z,0960 
cP 38 

RET C 

XOR A 

SET 0,(1¥+01) 
JP OTFS 
PUSH HL 

LD HL,O1nL 
BIT 7,0 
JR 1, 097F 
AND 3F 

cP 43 

JR WC,0993 
LO 6A 

INC B 

BIT 7,(HL) 
INC HL 

JR 72,0905 
DJNZ 0985 
BIT 6,4 
JR NZ,0992 
cP 18 

ccr 

LD 6,H 

LD Cyt 

POF HL 

RET NC 

Lo Ace) 
ADD A,E4 
RET 

LO PC.0001 
PUSH Ht 
CALL OECS 
FOP HL 
CALL 0900 
LO WL,(4010) 
EX DE,HL 
LooR 

RET 

PUSH AF 
PUSH HL 

LO HL, 400C 
LO A,09 
LO E,(ML) 
INC HL 

LD 0,(HL) 
EX (SP) HL 
AND A 

SEC HL,DE 


O9EL 
o9eC 
O9ED 
O9BF 
osco 
ove! 
ore 
O90 
o9n4 
09cs 
0906 
O9c7 
o9ca 
o7cy 
O9CA 
ovcc 
ovcD 
OPE 
O9CF 
09700 
0902 
0903 
0904 
0905 
0906 
0907 
o9ne 
o9D9 
O90 
0900 
OSNE 
O90F 
O9E2 
OES 
O9E4 
O9ET 
O9E8 
O9EA 
O9EB 
O9EC 
Oven 
OEE 
O9EF 
OSFO 
O9F1 
O9F2 
O9F3 
O9F4 
O9F6 
O9FB 
OFA 
OFC 
O9FO 
0A00 
0A01 
OA04 
OA06 
OA0B 
OA0g 
OA0A 
OA0B 
oA0D 
OAOF 
OA10 
Ovi 
one 
OA13 
OAL 
OAIS 
OAS 
OA17 


OA18— 
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19 
—3 
30 09 
05 
eB 
09 
ce 
72 
2B 
73 
23 
0) 
23 
30 
20 EB 
ee 
01 
Fl 
a7 
ED 52 
44 
40 
03 
19 
EB 
cy 
ES 
21 70 
54 
so 
C1 
CO EA 
00 
cs 
CO Fe 
eB 
18 F4 
7E 
eB 
co 
23 
7E 
2R 
ey 
cy 
ES 
7E 
FE 40 
38 17 
CB 6F 
28 14 
87 
FA O1 
3F 
01 05 
30 02 
OE 11 
7 
23 
7E 
30 FE 
18 04 
23 
2% 
4c 
23 
46 
23 
09 
D1 
a7 
€0 52 


09 


o9 


00 


ADD HL,DE 
EX (SP),HL 
JR HC, 0908 
PUSH DE - 
EX DE, HL 
ADD HL.EC 
FX CEL 
LD CHL),D 
DEC HL 

LO (CHL),E 
TW HL 

POP DE 

INC HL 

DEC A 

JR HZ.09R4 
€X OE,HL 
FOP OE 

POP AF 
AND A 

SBC HL,DE 
LO BH 

LD C,L 

INC EC 
ADO HL ,DE 
EX OE,HL 
RET 

FUSH HL 

LO HL, 4070 
LO O,H 

Lo Et 

POP EC 
CALL O9EA 
RET NC 
FUSH BC 
CALL O9F2 
EX DE, Ht 
JR OIE 
LO A,CHL) 
ce 6 

RET NZ 

INC tL 

LD A,CHLD 
CEC HL 

cp Cc 

RET 

PUSH HL 

LO A,CHLD 
cP 40 

JR C,OAOF 
BIT 5,A 

JR 2, 0A10 
A00 AJA 
JP M,0A01 
CCF 

LO RC,0005 
JR NC,OA0B 
LOC, 
RLA 

INC HL 

LO A.CHL) 
JR NC, 0A0B 
JR OATS 
THE ttt 

INC HL 

to cycwtl) 
IWC HL 

LO B,CHL) 
THC HL 

ADD HL BC 
POP OE 

AND A 

SBC HL DE 


OAIA 
OAIB 
OAIC 
OAIO 
OAJE 
OAIF 
on22 
OA23 
0A26 
On2T 
OA2B 
OA2A 
OAZC 
0AZ0 
OAZ2 
OA33 
OAZ6 
OA37 
OAZA 
OAZC 
OAZE 
OAA2 
OA45 
OAS 
Ong 
OnAA 
OAAB 
AAD 
OME 
OAS2 
OAS3, 
0AS4 
OASS 
OAS 
OAS 
OASA 
OASD 
0A60 
OAAéL 
OA62 
ONS3 
ON64 
ONES 
0A66 
0A467 
OA68 
OA6B 
ON6C 
OA6D 
OAGE 
OAGF 
OATL 
OA72 
0A73 
OA76 
0A79 
On7A 
OATE 
OATF 
onne 
CABS: 
oAnR 
OANR 
onsD 
OPO 
Ona1 
OAI4 
OAIS 
OAI8 
On99 


c3 


OAIA— AF 


2c 


02 
18 
ce 
2 


0S 
40 
14 
CB 


FS 
39 


7E 
F3 
18 


00 
&0 
10 
17 


RO 


4 
40 


ce 


50 
1c 
44 
6 
O41 
FO 


on 
88 


22 
OA 


o1 


09 


40 


3A 


07 
40 


o9 


40 
0A 


o9 


40 
00 


en 
40 
40 


M5 
15 


00 
4 


BE 


oF. 


LO 6. 
LO C,L 

ADD HL OE 

EX DE, HL 

RET 

LO 6,(1¥#22) 
PUSH BC 

CALL OA2C 
FOP BC 

EC B 

JR On2C 

LO B,18 

RES 1,(1Y401) 
Lo C,21 

PUSH BC 

CALL 0918 
POP EC 

LO A,( 4005) 
cP 40 

JR C,0AS2 
SET 7,(1¥430) 
XOR A 

CALL O7FS 
LO HL,( 4039) 
LD A,L 

OR H 

AND 7E 

UR NZ,0A42 
JP 0918 

LD 0H 

Lo yt 

EC HL 

LO -C,B 

LD B,00 
LOIR 

Lo HL,( 4010) 
CALL OAI7 
PUSH eC 

LO A,B 

CPL 

LO BAA 

Lo a,c 

crt. 

LO C,A 

INC CC 

CALL O9AD 
EX DE HL 

FOP Hi. 

ADD HL,DE 
PUSH DE 
10IR 

POP HL 

RET 

LD HL,C4014) 
CALL 0040 
RST 18 

BIT 5,(1¥#20) 
RET HZ 

LD HL4050 
LO C4010), HL 
CALL 1544 
CALL 1586 

JR C.OA9L 
LO H.08FO 
ADD HL.BC 
JP C0090 
cr A 

JF 1488 
PUSH DE 
PUSH HL 


“XOR A 


oArn 
OASF 
OAAD 
OAAL 
CANS 
OAAS 
OANS 
OAAT 
OAAR 
OAAd 
OAAA 
OnAB 
OAAD 
OARO 
OARS 
OARS 
OAR? 
OACB 
OABE 
OARF 
oAL2 
OATS 
OAC4 
OACS 
OATB 
OAC? 
OATA 
OACR 
OACF 
OATO 
oAn2 
OADS 
OANT 
oAng 
OADB 
ADD 
OAL 
OAEO 
ONES 
OARS 
OnER 
OAFS 
OnE 
OAEF 
oArO 
OAF3 
OAF4 
OAFS 
OAFR 
OArA 
OAFC 
OAFE 
OAFF 
oB02 
OB0S 
or0o 
oon 
oron 
OBOE 
OB12 
OBL 
Ob17 
Ob19 
OPIR 
ORIE 
OB21 
OR?3 
0826 
OB?8 
0828 
OB2F 
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60 
69 
1E 
18 
oS 
56 
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SE 
—S 
ee 
1E 
01 
co 
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El 
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cy 
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FO 
7E 
FE 
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20 
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FE. 
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€F 
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5 
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19 
FE 
20 
€7 
co 
co 
cn 
C2 
£6 
AF 
FO 
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FO 
CR 
C6 
0 
Fu 
FE 
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cn 
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18 


20 


vr 
08 


00 
18 
ia 
oC 
A 
Fé 
Et 


£B 


Aé 
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76 
84 
1A 
00 
69 
a7 
16 


92 
1A 
on 


92 
4€ 


34 


FS 


a8 
33 


92 
4€ 
02 
Ao 
iF 


ce 
U7) 
96 
FF 
3 
71 
86 
2 
3A 
01 
FA 
cr 
06 


FC 
07 
TF 
07 
07 


07 


O1 CE 


O1 4€ 


08 
39 


08 
01 C6 


JR NZ, OABF 
LD H,B 

Lo L,c 

LD E,FF 

JR OAD 
PUSH DE 

LD CHL) 
INC HL 

LO ECHL) 
PUSH HL 

EX DE,HL 
LD E,00 

LD BC, FCI8 
CALL O7E1 
LO BC,FF9C 
CALL O7E1 
LO C,F6 
CALL O7EL 
LO AJL 
CALL O7EB 
POP HL 

POP DE 

RET 

CALL ODAS 
POP HL 

RET Z 

JP CHL) 
SET 1,¢1Y+01) 
LO A,CHLD 
cP 76 

JP 72,0884 
SUB 1A 

ADC A,00 
JR 72,0844 
CP AT 

UR NZ, OAFA 
RST 20 
CALL 0n92 
cr tA 
JP_NZ, 009A 
RST 20 
CALL 0D92 
CALL OBE 
RST 28 

UD BC.CD34 
PUSH AF 
DEC BC 
CALL ODFS 
JR OB37 

CP Ag 

JR NZ,0B31 
RST 20 
CALL on92 
CALL OB4E 
CALL 0C02 
JP WZ, 0EAD 
AND 1F 

LO C,A 

BIT 1,C1Y#01) 
JR Z,ORIE 
SUC (1¥#38) 
SET 7,0 
00 4,30 
CALL NC,OB7) 
ADD ALCLY#39) 
CP 21 

LD A,( 4030) 
SBC A, 01 
CALL OBFA 
SET 0,(1Y#01) 
UR OR37 
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CALL OBSS 
RST 18 

SUB 1A 

ADC A,00 

JR 2,0R44 
CALL 0010 
JP 0b84 
CALL NC, OBBB 
RST 20 

CP 76 

RET 2 

JP OADS 
CALL ODAS 
RET HZ 

FOP HL 

JR 0B37 
CALL OACS 
BIT 6,( 1Y#01) 
CALL Z,13F4 
JR 7, 0B6B 
JP 1507 

LO A,0B 

RST 10 

LO DE, (4018) 
LO A,B 

OR C 

DEC BC 

RET Z 

LO A,(DE) 
INC DE 

LO (4018), 0E 
RIT 6,4 

AIR Z,0B66 
cr CO 

IR 7, 0864 
PUSH 6C 

CALL O74 
PoP BC 

JR OB67 

CALL OACS 
LO A,76 

RST 10 

RET 

CALL OACS 
SET 0,¢1Y#01) 
XOR A 

RST 10 

LO BC, (4039) 
Lo A,C 

BIT 1,C1¥#01) 
JR Z,0BA6 
LD A,50 

SUB ( 1¥+38) 
Lo cyt 
crc 

UR NC, OBAB 
Ln C.01 

CALL 0908 
RET 

CALL OBFS 
LD (4036), 8C 
LO A,28 

SB RB 

JP -C,OFAN 
Lo 6A 

LO A,01 

SRA EB 

JR NC, OBCS 
LO A,04 

SRA C 

JR WC,OBCA 
RUCA 


OBCA 


ORCE 
OBCF 


ObD2 
OBD4 
bs] 
OB07 
obo? 
ORDA 
ob00 
OFEO 
OBEL 
OvE4 
OBES 
OBES 
oer? 
OBE9 
OBEA 
OBEE 
ORED 
ORFF 
OEF! 
ObF2 
ObF3 
ORF 4 
ORFS 
oere 
oer9 
orrA 
opFO 
OBFE 
OBrF 
0C00 
ocol 
oco2 
0coS 
0cos 
OCOA 
ocoe 
ocoo 
OCOE 
Ocil 
0cis 
0016 
Org 
OCiA 
Orie 
OCLE 
ocet 
0c22 
0023 
or24 
0026 
ces 


114 


FS 
co 
TE 
07 
FE 
30 


30 
gE 
47 
W 
3A 
93 
FA 
Fi 


18 
Fl 
BO 
FE 
38 
FE 


o7 
o9 
cy 
co 
47 
cs 
co 
sy 
C1 
i) 
4F 
cy 
co 


ce 


cy 
FO 


co 
co 
7E 
12 
FO 
2A 
23 
54 
50 
eo 
C3 


40 
04 
046 


7. 
06 


FS 08 


10 
06 


02 
9E 
30 
€&9 


02 


08 
02 


02 


02 


cy 
o1 


46 


40 
4S 
05 


05 
JA 
OE 
00 


40 
OB 


22 


SS 


aA 
40 


4? 2B 
on 5? 
An on 
06 O05 
O8 14 
04 00 
00 96 
Ar OR 
49 08 


17 1F 


06 00 
ty on 


9? 


LO A,( 4030) 
sue € 

JF M,OBE9 
POP AF 


z3 


8 
OBEB 
PAF 
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B 
08 
C, ORF 1 

XOR 8F 

EXX 

RST 10 

EXX 

RET 

CALL 0C02 

LD B,A 

PUSH BC 

CALL OCO2 

LO E,C 

FOP BC 

Lo 0,c 

LOC,A 

RET 

CALL 15C9 

JP C,OEAD 

Lo c,o1 

RET Z 

LO C,FF 

RET 

LO 6, 1¥#22) 

Lo C,2t 

CALL 0918 

CALL 0998 

LO A,CHL) 

LD (0E),A 

INC (1Y43A) 

LO HL,( 4000) 

INC HL 

LO 0,H 

1D E,t 

CPIR 

JP OASO 
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SOLUTIONS TO EXERCISES 
Chapter 1 


19 FOR X=63TO@STEP —1 ... use 59 for 1K ZX81’'s 
20 FOR Y = 43 TO @STEP —1 

30 PLOT X,Y 

49 NEXT Y 

50 NEXT X 


19 FOR X= 19 TO 30 
20 FOR Y=5TO 25 
30 PLOT X,Y 

49 NEXT Y 

5@ NEXT X 


For 16K Machines:— 


10 FOR X=9TO 63 
20 PLOT X,@ 

30 GO SUB 500 

49 UNPLOT X,0 

50 NEXT X 

69 FOR Y=@TO 43 
79 PLOT 63,Y 

89 GO SUB 500 

99 UNPLOT 63,Y 
190 NEXT Y 

119 FOR X=63 TO @ STEP —1 
120 PLOT X,43 

130 GO SUB 500 

140 UNPLOT X,43 
150 NEXT X 

160 FOR Y=43 TO @ STEP —1 
170 PLOT ®Y 

180 GO SUB 500 

199 UNPLOT @, Y 
200 NEXT Y 
219 STOP 
500 PAUSE 10 
510 POKE 16437 ,255 
520 RETURN 
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1(d) 


1(e) 


For 1K ZX81's the boundaries of the display will need to be 
reduced. 


Alternatively try this. (Substitute Y=15 for Y=@ for 1K): 


19 LET X=0 

20 LET Y=@ 

30 PLOT X,Y 

49 PAUSE 10 ) or 49 FOR A=1 TO 20 

5@ POKE 16437,255) 5@ NEXTA 

69 UNPLOT X,Y 

70 LET X=X+(Y=0)—(Y=43)—(X=63 AND Y=@) + (X=@ AND 
Y=43) 

80 LET Y=Y—(X=0)+(X=63)—(Y=43 AND X=63) + (Y=@ AND 
X=0) 

99 GO TO 30 


19 FOR A=@ TO 90 STEP 5 

20 LET M=TAN(A*2*P1I/360) 

30 FOR X=@ TO 63 (use 40 for 1K) 
40 LET Y=INT (M*X) 

50 IF Y>43 THEN GO TO 80 

6@ PLOT X,Y 

70 NEXT X 

80 NEXTA 


A line through the point (32,22) with gradient m can be calcul- 
ated since the slope y—22 = m 
x-— 
so y = m(x—32)+22 
Use values of m from —5 to 5 in steps of one half 


19 FOR M=—5 TO 5 STEP @.5 

20 FOR X=@TO 63 

30 LET Y=INT(M*(X—32)+22) 

49 IF Y>43 OR Y<@ THEN GO TO 60 
5@ PLOT X,Y 

60 NEXT X 

70 NEXTM 
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1(f) 


2(a) 


2(b) 


3(a) 


3(b) 


Equation is x2 + y2 = 402 
sox = 40 cos 6 
and y = 40sin@ 
and we PLOT it for the angle @ between 0° and 90° 


19 FORQ=@TO 90 

20 LET P=Q*PI/180 

30 PLOT 40*COS P,40*SIN P 
49 NEXTQ 


Chapter 2 
Add the following instruction 
55 IF A$(I)=""—"" OR A$(I)=“-b” THEN GO TO 70 


19 DIM S$(49) 
20 PRINT “ENTERbDSENTENCE:” 
30 INPUT S$ 
49 PRINT S$ 
5@ FOR I|=1 TO 37 
60 IF S$(I TO I+2)=""THE” THEN GO TO 100 
70 NEXT | 
80 PRINT “DOESbNOTbCONTAINDbTHE.” 
99 STOP 
199 PRINT ‘“‘DOESbCONTAINbTHE” 


Notice this accepts any word containing, T,H,E, e.g. PATHETIC 
Chapter 3 


No solution specified: the subject area is open to the reader’s 
choice. 


71 LET V=0 

72 FOR J=1TO8 

73 IF CODE (W$(1,J))>128 THEN LET V=V+1 
74 NEXT J 

75 IF V<>1 THEN GO TO 70 


V counts the number of inverse characters in the word. 
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3(c) 


3(d) 
3(e) 
3(f) 


3(g) 


3(h) 


3(i) 


ABS is included so that the relative values of N and R are com- 
pared effectively, i.e. it is unimportant which is the larger. 
Without ABS we have for example: 

199 IF N—R>5 THEN GO TO 220 


If R was 5@ and N was 44 the test would not be satisfied 
since —6 is not greater than 5. 


Try it and see! 
30 LET A$(I)=CHR$(INT(RND*11)+28) 


There is not a way of crashing the program at the input stage 
that we have found! 


Add the following line 
195 |F N=M AND D>SQOR M THEN GO TO 120 


Line 260 terminates with an error if DF is zero. 
Add the following: 


253 1F DF<>@ THEN GO TO 260 
255 PRINT ““NObSOLUTIONbPOSSIBLE”’ 
257 STOP 


Line 36@ detects a response which is shorter than 
the answer keyword, and which is therefore obviously 
wrong. 
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APPENDIX 
PROGRAM DESIGN AND DEVELOPMENT 


Introduction 


This section has been written to show the reader how a games program 
has been built up from first ideas into a fully working and documented 
program. 


The writing of programs can generally be split into a number of steps: 


Defining the problem 

Outlining the solution 

Selecting and representing algorithms 
Coding (or writing the program) 
Debugging 

Testing and validating 
Documentation 

Maintaining the program 


SoS Ok SY oN 


It is vital that a considerable amount of planning and design for a 
program takes place before the user touches the keyboard. In particular 
the aim and format of the program must be clearly specified, since 
ambiguities at this stage will cause problems later. When defining the 
method of solution (or algorithm) is it helpful to write this down as a 
series of separate steps in a block-structured form, as shown in earlier 
chapters. Some programmers like to use flowcharts (example later) but 
the author thinks these are not vital if the algorithm is written down in 
a structured way. All later stages of the implementation of the program 
are based upon this stage and it can be helpful to specify the names 
and meanings of variables here. Certainly a list of variables must be 
kept as the program is written to avoid confusion or duplication of 
names. Even when tracking down errors or program bugs, the 
structured method can be traced through to show any logic errors. 
Although it can be frustrating for the user with a good idea for a 
program to wait for an hour or so following this method before getting 
on the ZX81, he will find it saves a great deal of time later: there will be 
much fewer errors and those present will be easier to find. 


This approach, while certainly the best, does present problems for those 
beginning to program, since such users will not have all their ideas at the 
beginning of the design process. The remainder of this section 
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represents an alternative of gradually improving upon an initial simple 
program. 


Sample Specification 


Step One, defining the problem means “What is the Program to do” or 
“What is its specification’’. Here is the specification of the program which 
will be covered in this section: 


“The program is to draw a large block on the screen which represents a 
thick dungeon wall. A prisoner under the user’s control has to dig him- 
self out from one end to the other. However parts of the wall are of 
made of hard rock, which he must dig round. If he takes too long a 
Warder will come looking for him and if he is found he will be taken 
back and the tunnels he has dug filled in. The object is for the prisoner 
to escape.” 


Those people without 16K expansions will realise that (without using 
machine code) it will not be possible for their ZX81’s to handle such a 
program. Even so the first part of this section is just as applicable to 1K 
as to 16K, so continue reading. 


The specification has given us three main problems: 


1. We have to be able to move a character representing the 
prisoner round the screen. 


2. Parts of the screen have to be designated ‘‘No-Go” areas 
which the prisoner must go round, and 


3. We have to make a second character follow the paths made 
by the ‘’Prisoner’’ while looking for him. ° 


PROBLEM ONE — MOVING A CHARACTER ROUND THE SCREEN 


As described earlier in the book there are two ways of printing a 
character on the screen, ‘‘PRINT AT” and “PLOT’’. We will use “PRINT 
AT” because any character can be displayed by this statement. Since it 
is not necessary to input the co-ordinates for every move and since we 

do not want the program to stop while waiting for an input we will use 
the ‘INKEY$” statement. The following program shows briefly how 

this can be done. 
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5 REM PROGRAM 1 
10 LET X=5 
20 LET Y=1 
30 IF INKEY$="8" THEN LET Y=Y+1 
40 PRINT AT X,Y;"P” 
50 GOTO 30 


Y is the horizontal position which is incremented everytime the ‘‘Right 
Arrow” or “8” key is pressed thus drawing a line towards the right. 

Note that the line continues for as long as the ‘Right Arrow” key is 
pressed. If we can move in one direction like this then we can move in 
any direction by incorporating the other arrow keys in the program. One 
fault with the above program is that once the line reaches a certain length 
it crashes with an error message B/4Q which means that the value of “Y” 
in line 49 is too large. The computer has tried to draw off the screen,to 
prevent this happening insert the following line: 


35 IF Y>30 THEN LET Y=Y-1 
The line will now no longer be drawn past column 30. 


When the above technique is used to draw a line in all directions it 
becomes a very versatile method of drawing on the screen. The following 
“Sketcher’’ program demonstrates this. It makes the ZX81 imitate a 
childs Etch-A-Sketch machine. Movement and character changing are 
shown below: 


oa 


—8 Left, Down, Up, Right 

Change character to a dot 

Change character to a blank 

Scroll whole picture 

Change character back to black square 
Press to insert your own character 


ADNDO 


5 REM SKETCHER PROGRAM 

10 LET X=10 
20 LET Y=12 
30 LET P$=CHR$(128) 
40 LET X=X—(INKEY$="7')+(INKEY$="6") 
5@ LET Y=Y—(INKEY$="5"")+(INKEY$="8”’) 
60 IF INKEY$=""C’" THEN GO SUB 300 

70 IF INKEY$="A"’ THEN LET P$=CHR§(128) 
80 IF INKEY$="D" THEN LET P$="".” 
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90 IF INKEY$="B” THEN LET P$="'b” 
100 IF INKEY$="S" THEN SCROLL 
110 IF Y>31 THEN LET X=X+1 
120 IF Y>31 THEN LET Y=0 
130 IF Y=@ THEN LET Y=Y+1 
140 IF X=@ THEN LET X=X+1 
150 IF X>2@ THEN LET X=@ 

160 IF X=@ THEN LET Y=Y+1 

170 PRINT AT X,Y;P$ 

180 GO TO 40 

300 PRINT AT 1,1;’“CHARACTER=" 
310 INPUT P$ 

32@ PRINT AT 1,1;bbbbbbbbbb’’ 
330 RETURN 


Lines 18 to 3@ Sets up coordinates and character to be printed. 

Lines 49 and 50 Change the character co-ordinates, compare with Line 
30 in Program 1. 

Lines 60 to9@ Allowcharacter to be changed. 

Lines 110 to 160 Stop the character from going off the screen. 

Lines 30@ to 33@ Allow the user to change the character to any other 
character or string. 


We have not totally achieved our objective as the Sketcher Program and 
Program 1 are drawing lines round the screen rather than moving a 
character. To create the illusion of movement we must erase the 
character everytime it moves. To do this we must store the old co- 
ordinates and print a blank on them. Insert the following lines into 
Program 1:— 


25 LET S=X 

27 LET T=¥ 

45 PRINT AT §S,T;’’b”’ 
50 GOTO 25 


Note how the character flashes — this is because it is constantly rubbing 
itself out. Try and work out how to stop the flashing (answer at the 
end of this section) and try to incorporate this technique into the 
Sketcher Program. 


The two programs above both fit into a 1K ZX81 although memory full 
errors may occur with the Sketcher Program as the screen begins to fill 
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up. For the second problem below (defining parts of the screen as 
No-Go areas) a 16K expansion must be used. 


PROBLEM TWO: DEFINING ‘‘NO-GO” AREAS ON SCREEN 


By the expression ‘‘No-Go Areas’’ is meant a part of the screen which a 
program such as Sketcher cannot draw on and must go round to pass. 
This means that the ZX81 must know what is being displayed on the 
screen. The easiest way of doing this is to store the screen contents in 
an array. This is why a 16K expansion is needed. The array will be 
dimensioned as 21x31 (the number of ‘“‘PRINT AT” positions) so that 
every time a character is printed on the screen a corresponding digit 
should be placed at the correct position in the array. For example if a 
"3" is printed on the screen at 5,7 then a ‘’3”’ is stored in the array at 
5,7. 


PRINT AT X,Y;"3” 
LET A(X,Y)=3 


To create No-Go areas on the screen therefore all we have to do is place 
values in the array. If we try to draw a character in a No-Go screen 
position then we have to move the character back to its old position. 


This BLOCK program gives a demonstration of the No-Go Areas, as well 
as a moving (self-erasing) character. Move the character by using the 
“Arrow” keys. 


5 REM BLOCK PROGRAM 

19 DIM A(21,31) 

20 FOR S=1 TO 21 

30 FOR T=1 TO 31 

40 LET X=INT(RND*16+1) 

45 IF X>8 THEN PRINT AT S,T;"” 

5@ IF X>8 THEN LET A(S,T)=7 

60 NEXT T 

70 NEXTS 
100 LET X=10 
110 LET Y=1 
12@ LET S=X 
13@ LET T=Y 
149 LET X=X—(INKEY$="7")+(INKEY$='6 ”) 
15@ LET Y=Y—(INKEY$="5")+(INKEY$="8 ”’) 
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160 IF A(X,Y)=7 THEN GO SUB 200 
17@ PRINT AT X,Y;"“O” 

180 PRINT AT S,T;"b” 

199 GO TO 120 

200 LET X=S 

210 LET Y=T 

220 RETURN 


This program produces a screen full of random black squares. Once the 
flashing ‘‘O”’ has appeared, move about by using the arrow keys. No 
matter how hard you try you will be unable to move the ‘‘O”’ through a 
black square. This is how the program works. 


Line 10 Sets up the two dimensional array. 

Lines 20 to 70 Fills randomly chosen parts of the array with 7 and 
prints out the corresponding position on the screen. 

Lines 100 to 110 Set up the starting position of the flashing “‘O’’. 

Lines 120 to 13@ Store the previous position of the flashing ‘’O’’. 

Lines 149 to 150 Input the new position for the ‘‘O”’ to go to. 

Line 160 Finds out whether the new position of the ‘‘O” is a 
No-Go Area by looking at the corresponding position 
in the array. 

Lines 170 to 19@ Print the “’O”’ and erase the old “O”’. 


Lines 200 to 22@ _—‘Return the flashing ‘‘O”’ to its old position if it is 
trying to pass a No-Go Area. 


An interesting alteration to liven this program up can be made as 
follows: — 


200 LET X=S—2 
210 LET Y=T—2 


Now everytime the flashing ‘’O’’ reaches a No-Go Area it will bounce 
away from it. As we now have the two main techniques which form the 
basis of the game program we can now begin work on it. The diagram 
on the next page shows a general algorithm for the game in the form of 
a flowchart. It is around this that we shall write the Game Program. 
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SET UP ARRAY WITH 
RANDOM NO-GO AREAS 
SET UP TIME LIMIT 
AND OTHER VARIABLES 


HAS 
A KEY BEEN 
PRESSED ? 




















Possible 
to move in that 
direction 


ES 
MOVE IN CHOSEN 
DIRECTION 








PRINT TIME UP 
MESSAGE 
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PRINT ESCAPED 
MESSAGE 





This flowchart is not an algorithm for the complete game because we 
want a ‘‘Warder’’ to be able to chase the ‘‘Prisoner’’ through the 
“tunnels” and capture him. However this part of the program can be 
added later at the ‘‘Print Time Up’’ box. Box 1 carries out the same 
functions as lines 10 to 100 in the block program and can be broken 
down into the following sections. 


a) Set up array 

b) Set up initial variables (co-ordinates etc.) 
c) Fill array with random flags (No-go areas) 
d) Print out picture 

e) Setup time limit 


Up to this point we have reached Step 3, in the program — writing 
procedure, that is we have: — 


DEFINED THE PROBLEM, this was our specification. 


OUTLINED THE SOLUTION, the techniques needed to write the 
program, i.e. character movement and No-go Areas. 


SELECTED AND REPRESENTED ALGORITHMS, such as the flow- 
chart and the sketch and block programs. 


We have also carried out some coding, debugging and documentation in 
the process of outlining the solution. Coding of the actual game 
program can now be done as all of the boxes in the flowchart have been 
covered already. 


10 REM ESCAPE GAME 

20 REM INITIALISE 

30 FAST 

40 DIM A(20,22) 

5@ LET X=10 

60 LET Y=2 

7@ LET C=@ 

80 LET A$="0” 

99 REM FILL ARRAY 

100 FOR I=1 TO 100 

110 LET V=INT(RND*20+1) 
120 LET D=INT(RND*20+1) 
130 LET A(V,D)=7 

140 NEXT | 

150 REM PRINT PICTURE 
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169 SLOW 

170 CLS 

18@ FOR I=1 TO 20 

190 PRINT “bE RR RR RRR RE BRR RRBs 
Ri” 

200 NEXT | 

210 REM SETUP TIME LIMIT 

220 LET TIME = INT(RND*206+1) 

230 REM MOVING PRISONER 

240 LET C=C+1 

250 !F C>TIME THEN GO TO 500 

260 LET K=X 

270 LET P=Y 

280 LET X=X—(INKEY$="7")+(INKEY$="6") 

299 LET Y=Y—(INKEY$="5")+(INKEY$="8") 

295 IF Y>2@ THEN GO TO 400 

300 IF A(X,Y)=7 THEN LET X=K 

310 IF A(X,Y)=7 THEN LET Y=P 

320 PRINT AT K,P;%'b” 

330 LET A(X,Y)=8 

340 PRINT AT X,Y;A$ 

359 GO TO 230 

400 PRINT AT 1,20;“YOUbHAVE” 

410 PRINT AT 3,20;“ESCAPED” 

420 GO TO 700 

500 PRINT AT 1,20;“YOUbARE”’ 

510 PRINT AT 3,20 ;“CAUGHT” 

700 STOP 


When this program is run the screen will clear for about five seconds 
while the initialisation and array-filling take place (lines 10 to 140). 

A large black square is then drawn on the left of the T.V. screen with a 
flashing ‘‘O”’ at the left edge. The flashing ‘‘O’’ represents the prisoner 
and the black square shows the ground through which he must dig to 
make his escape. Escape is achieved when he reaches the right hand 
side. You may have noticed that this program uses a slightly different 
method of filling the array than does the block program. In this program 
the density of No-Go areas can be chosen (here 10@) by the size of the 
FOR NEXT loop in line 1@0 . The ‘’Tunnel’’ effect is created by the 
printing of blanks in line 320 which also causes the ‘‘O”’ to flash. Try 
making changes to the program, for example to the density of No-Go 
areas, the time limit, or adding boundaries to the top, bottom and left 

of the screen so that the program does not crash with a 3/300 error if 
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you go off the edge. 


This game provides a good springboard for further expansions, however 
we said that it was our aim to incorporate a ‘‘Warder”’ to capture the 
prisoner. The warder has to either follow the exact course taken by the 
prisoner or work his way through the tunnels by following the array. 

Let us look at the second method first. The array used by this program 
so far contains 3 numbers; @, 7, 8, which correspond to the screen display 
as shown below. 


A ALAL cee 









_n Oo OF N O 





UMN 
UUM 


SCREEN DISPLAY 


8 = Passage taken by ‘’Prisoner’”’ 
7 = No go areas 
0 = Areas which can be passed through 


As the ZX81 will use the array to locate the position of the ‘‘Prisoner’’ 
the array must show where he is! This can be done by adding the line. 


245 IF C>TIME THEN LET A(X,Y) = 


Now as soon as the prisoners time is up his position is marked in the 
array by a “9”. 


The ZX81 (or warder) can now search from a starting position along 

the trail of ‘’8’’s in the array for the ‘’9”’ (prisoners position). The 
computer not only has to search for the “9” but also ‘’8’’s so that it can 
follow a route made by the prisoner. To do this the computer has to 
search for an “8” or ‘‘9’’ in the squares adjacent to its present position. 
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Assume the “‘Warder’’ is at square X — he will search in the following 
way: 





Ss 
So to search from X to1 T=T+1 
1to2 S=S-—1&T=T-—1 
2to3 S=S+2 


3 to 4 T=T-1&S=S—-1 


So that when the ZX81 has found an adjacent ‘’8’’ it moves onto it and 
starts the search procedure again. Because this order of searching has 
been chosen, the ‘‘Warder’’ will tend to move right and up, rather than 
down and left. The coding to do this will look like this 


500 REM CHASING WARDER 

510 LETD=7 

520 LET S=10 

530 LET T=1 

549 LET F=S 

550 LET G=T 

560 LET T=T+1 

570 IF A(S,T)<D THEN GO TO 1000 
580 LET S=S—1 

590 LET T=T-1 

600 IF A(S,T)>D THEN GO TO 1600 
610 LET S=S+Z 

620 IF A(S,T)>D THEN GO TO 1000 
630 LET S=S—1 

640 LET T=T-1 

650 IF A(S,T)>D THEN GO TO 1000 
660 GO TO 560 

1000 PRINT AT S,T;"X” 


1910 PRINT AT F,G;"’b”’ 

1920 IF A(S,T)=9 THEN GO TO 1100 
1038 GO TO 540 

1100 PRINT AT 1,23;“GOT” 

1110 PRINT AT 3,23;“YOU” 


Because the same order of search is used by the ‘‘Warder”’ (right, up, 
down, left) it will occasionally become trapped. To prevent this from 
happening the search order can be randomised, though the ‘‘Warder’”’ 
should be more inclined to move forward than to move backwards. 


INDEX 


(Program names in Italics) 


Axes 1 

BBC 42 

Binary 96 
Bomb-proofing 51 
Bouncing 15 
Breakers Club 42 
Characters 36 
Character Display 101 
Character Generator Display 102 
Character table 102 
Circles 17 

Command Table 101 
Computer Studies 66 
Coordinates 2 
Copycat 82 

Data 35 

Data processing 35 
Data structures 41 
Data tables 98 

Duck Shoot 30 
Education Ch. 3 
Ellipse 19 

Entry points 98 
Equations 5 
Feasibility study 38 
Fields 41 

Files 41 

Garbage -free 53 
GIGO 53 

Grab the Grunger 79 
Gradient 7 

Graphics Ch.1 
Hexadecimal 96 

Hex Display 100 
Implementation 40 
Information Processing Ch.2 
INKEY$ 22 
/teration 90 
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Key table 101 

Lines 3 

Maths Stepping Stones 70 
Modules 54 

Money Maze 27 
Monitor Ch.4 
Monitor Listing 103 
Moving objects 8 
Parabolas 19 

PAUSE 22 

Picking Pairs 84 
PLOT 3 

PRINT AT 19 

Primes 88 

Program categories 61 
Pythagoras 11 

Quiz 92 

Radians 11 

Realtime 22 

Record 41 

Rectangle 4 
Requirement 50 
Routines 98 

School subjects 67 
Shooting Gallery 25 
Solutions 115 
Spelling Big Words 74 
Spirals 14 

Spots Before the Eyes 77 
String handling 36 
Systems analysis 38 
Tables 43 

Tangents 10 

Trees 44 
Trigonometry 10 
User-friendliness 52 
Validation 53 
Variable length 46 
Video Show 20 


If you have a Sinclair .ZX81 and want to use it to its full potential then, 
as the experts have all agreed, this is the book for you. It contains 
detailed guidelines and documented programs in the.areas of gaming, 
information retrieval and education, as well as a unique listing of the 
8K ROM for machine code applications. 


‘Far and away the best . . . once again Linsac has produced the book for 
the serious end of the market’. — Your Computer, November 1987. 


‘The ZX81 Companion is a most professional product . . . with many 
good illustrative programs, tips and warnings’. — Education Equipment, 
October 1981. 


‘Bob Maunder’s attempt to show meaningful uses of the machine is 
brilliantly successful . . . thoughtfully written, detailed and illustrated 
with meaningful programs . . . To conclude — the book is definitely an 
outstandingly useful second step for the ZX81 user’. — Educational 
ZX80/81 Users’ Group Newsletter, September 1987. 


Bob Maunder has been involved in the ZX series of microcomputers since he acquired 
the first ZX80 kit in March 1980, and he is co-author of Linsac’s ‘The ZX80 
Companion’. He holds a MSc in Computer Science from Birmingham University and 
is Head of Computing at Hartlepool College, where he pioneered the use of the 

ZX80 in education. 


UK Price £7.95 
LINSAC 
ISBN 0 907211 01 1 
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